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Soriand’s Turbo Pascal Family. 


Speed, Power, Pri 











The industry standard. With more than 250,000 users worldwide Turbo Pascal is the industry's de facto standard. 
Turbo Pascal is praised by more engineers, hobbyists, students and professional programmers than any other development 
environment in the history of microcomputing. And yet, Turbo Pascal is simple and fun to use! 


Jeff Duntemann, PC Magazine: “Language deal of the century. . . Turbo Pascal: It introduces a new 9 9 
programming environment and runs like magic.” A) 














Dave Garland, Popular Computing: “Most Pascal compilers barely fit on a disk, but Turbo Pascal packs an editor, compiler, linker, 
and run-time library into just 29K bytes of random-access memory.” 


























Jerry Pournelle, BYTE: “What | think the computer industry is headed for: well documented, standard, plenty of good features, 
and a reasonable price.” 


Portability. Turbo Pascal is available today for most computers running PC DOS, MS DOS, CP/M 80 or CP/M 86. A XENIX verison of Turbo 
Pascal will soon be announced, and before the end of the year, Turbo Pascal will be running on most 68000 based microcomputers. 








High resolution monochrome graphics for the IBM PC and the Zenith 100 computers 


Dazzling graphics and painless windows. The Turbo Graphix Toolbox will give even a beginning programmer 
the expert’s edge. It’s a complete library of Pascal procedures that include: 


—Full graphics window management. 
—Tools that will allow you to draw and hatch pie charts, bar charts, circles, rectangles and a full range of geometric shapes. 
—Procedures that will save and restore graphic images to and from disk. 
S S. —Functions that will allow you to precisely plot curves. 
4 —Tools that will allow you to create animation or solve those difficult curve fitting problems. 
Ne ‘Og and much, much more..... 


No sweat and no royalties. You may incorporate part, or all of these tools in your programs, 
and yet, we won't charge you any royalties. Best of all, these functions and procedures come complete 
with commented source code on disk ready to compile! 





Searching and sorting made simple 










The perfect complement to Turbo Pascal. \t contains: Turbo-Access, a powerful implementation of the state-of-the-art B+ tree ISAM 
technique; Turbo-Sort, a super efficient implementation of the fastest data sorting algorithm, “Quicksort on disk”. And much more. 


Jerry Pournelle, BYTE: ‘the tools include a B+tree search and a sorting system; I've seen stuff like this, but not 
as well thought out, sell for hundreds of dollars.” 

Get started right away: free database! included on every Toolbox disk is the source code to a working 
data base which demonstrates how powerful and easy to use the Turbo-Access system really is. 
Modify it to suit your individual needs or just compile it and run. 


Remember, no royalties! 





From Start to Finish in 300 pages. Turbo Tutor 

is for everyone, from novice to expert. Even if you've never 
programmed before, Turbo Tutor will get you started right away. 

If you already have some experience with Pascal or another 
programming language, Turbo Tutor will take you step by step 
through topics like data structures and pointers. If you're an expert, 
you'll love the sections detailing subjects such as “how to use assem- 
bly language routines with your Turbo Pascal programs.” 
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A must. You'll find the source code for all peat ribe Y oto Se 
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@ While our specifications 
certainly speak for themselves, 
we thought you still might like to 
hear from some of our users: 


m “Emerald Systems expands the 
potential of PCs by providing the 
ability to access large amounts of data 
on line, quickly and reliably.” 

Terry Baptiste, Computerland, 

Lafayette, Ca. 


@ ‘Service and support is great, which 
is an unusual experience. Emerald'’s 
software for backup and restore is 
invaluable. Can't put a price on it. 
Productivity and efficiency has 
increased at least 50%!” 

Bruce Kittinger, Pinon Systems, 

Ft. Collins, Co. 


@ Runs like achamp with 3-Com 
Ethernet.” 
Alvaro Ramirez, Micro Age, Miami, Fl. 


m“... high capacity and flexibility. At 
last, a tape back up we can count on. 
And the price is right!” 

John Acres, EDT, Las Vegas, Nv. 


@ “The speed at which you can back 
up is very impressive.” 

Jim McEwen, Mercy Hospital, 

Portland, Me. 


@ “When Emerald says your unit will 
be there on Thursday, it's there on 
Thursday! Delighted we were able to 
exceed the usual 32 megabyte 
restriction.” 

Steven Mayer, Take One Company, 

New York, N.Y. 


@ “The Emerald 70 MB hard disk is 
extremely easy to install and work 
with. Emerald has a complicated 
piece of equipment made easy to 
use.” 

Tom Edler, Jewish Hospital, St. Louis, Mo. 


wm “Our Emerald fixed disk installed 
quickly and easily. Emerald's reliable 
disk and tape backup further 
enhances LIBRA‘ss high function 
accounting software.” 

Kenn White, Libra Programming, 

Salt Lake City, Ut. 
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Or 
$56 per 
Megabyte! 
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Your 


HARD DISK 


We've broken through the 32 
MByte DOS barrier! 


Now you can create up to 240 
MByte databases on one file, with 
multiple volumes per disk drive. 
You get 14 times more storage 
with a 30% increase in 

access speed! 


And that’s not all: 


Expands up to 280 MB for as little 
as $56 per megabyte. 

6 expansion slots 

Up to 24 volumes 

Drive sizes: 40, 70,140 

Internal or External 

Also for PC,XT, and compatibles 
Supports all PC compatible 
networks 

Simple menu-driven installation 


TAPE BACKUP 

Va" cartridge 

‘e" 9 track 

60 Megabytes 

No lost data from tape run out 
Backup and Restore Utility (BRU™) 
software included 
LAN Compatible* 


*FREE APPLICATION GUIDE: 
“IBM LAN Installation and 
Implementation.” 


Call (619) 270-1994, 
or write to 


Emerald™ Systems 
Corporation 

Mainframe Storage for Micros 
4901 Morena Bivd, 

San Diego, 92117 

TLX 323458 EMERSYS 
EASYLINK 62853804 


Distributed by Manchester Equipment of 
NYC, and selected Entre, MicroAge and 
Computerland stores. 


Emerald, BRU, Up Your AT, and Mainframe Storage 


for Micros are registered trademarks of Emerald 


Systems Corporation. IBM PC/XT/AT are registered 


trademarks of IBM Corporation. 


Computers Don’t Live By 
Hardware Alone. 


Without software, computers are little more than 
expensive bookends, but if I had to choose between 
using my computer as a bookend and running the 
latest version of 4ife (in BASIC), my system would 
now be supporting a collection of Dr. Who catalogs. 
(After all there is more to computing than Hfe.) 





I started Micro Cornucopia as a forum for the 
adventurers who are designing and expanding new 
software tools. And over the years, Micro C has 
presented both serious and light-hearted looks at 
the trials everyone faces when probing the boun- 
daries of a language or an algorithm. 


In Micro C we have regular columns on Pascal 
(primarily Turbo ), C, and FORTH. We also take close 
looks at operating systems, system monitors and 
new languages such as Modula II. 

Public Domain Software 
We put together public 
domain disks from the 
software submitted by 
Micro C readers. These 
disks contain format- 

ters, screen dumpers, 
assemblers, dis- : & 
assemblers, text edit- 
ors, and other useful 
goodies - many of 

which are available 
nowhere else. 

(Numerous CP/M80 and 
CP/M86 SIG/M programs 
originated within the Micro C group. ) 


An International Group ee 
If you're interested in hardware and < 

software — if you are ready to dig 
into your system and see what makes 
it tick — if you want to participate in 
an active international group that doesn t believe in 
black boxes — then this is your spot. Try us for a 
year; you ll see why Micro C has grown to over 80 
pages of the most useful hardware and software 
information anywhere. — 

If you're looking beyond fe, this is your spot. 


David J. Thompson 
Editor & Publisher fp 

Risk Free Special Offer! 
You get your 7th issue free when you order a year 
subscription (6 issues) for $16. Plus, if you're not 
delighted with Micro C after receiving your first 


issue, just drop us a note and we'll refund your 
entire $16, no questions asked. 
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Exploding the 
Black Box Theorem. 


Year Subscription 
ae (plus 7th issue free) $1 600 foe 
Canada & Mexico $22.00 era 
Other Foreign $30.00 


Computers Don’t Live By 
Software Alone. 


Many computer publications seem to have forgotten 
that software has to run on something. That 
something is called hardware (see, we re ahead of 
them already ). Those magazines that do remember, 
subscribe to the black-box hardware theory. “You 
don't open a black box, you just review it until the 
manufacturer goes bankrupt.” 


At Micro Cornucopia, we don't believe in black 
boxes. We've been building and expanding systems 
inside the pages of Micro C for nearly 4 years (a bit 
cramped, perhaps, but it’s fun). 


Microsystems and Micro C 
Until recently, we ve concentrated on single board 
systems — the Big Board, the Xerox, the Kaypro, 
and other CP/M Z80 systems (along with the 80186 
based Slicer ). However, with the demise 
& of Microsystems, we've taken on 
support of homeless S-100 folk. 
Dave Hardy has joined Micro C 
and his detailed coverage of 
the S-100 bus makes Micro 
C a primary source of infor- 
mation for this versatile 
system. 


The Latest Processors 
Here is where you'll hear 
about the upcoming micro- 
processors, as well as the 
current single board and S-100 
os board designs. Get the inside 
a scoop on these systems and share 
the joys and frustrations we all face 
when parenting powerful new machines. 


Coming Up 

Through Micro C, you'll be able to 
design and build your own terminal, 

or turn that extra Xerox 820 board that’s languish- 
ing in your drawer into a smart 64K printer buffer 

(just add a power supply and a ROM). 

In fact, you'll get the greatest hardware projects for 
S-100 and single board systems as well as in-depth 
coverage of the great languages. About the only 
thing you won't get is a black box review. (But to get 
ali this, you'll have to subscribe: you won't find 

Micro C in your local supermarket. ) 


Micro Cornucopia 
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Order # (503) 382-5060 
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EDITORIAL 





Dr. Dobb's Journal. You just get used to thinking of yourself as a “serious 
computerist” and you find yourself a subscriber to a magazine “for ad- 
vanced programmers.” 

With this issue, we welcome several thousand readers of the sadly-defunct 
Micro magazine to Dr. Dobb’s. Micro, like Microsystems and Microcomputing, 
died last fall in a bad season for many technical computer magazines. 

I’m sorry about Micro, but I’m happy to see this influx of readers serious about 
the 6502 and 68000 microprocessors. We’ve been publishing more and more 68000 
material recently, but aside from an occasional Commodore 64 piece, we’ve ne- 
glected the 6502 programmer. The Micro readers present Dr. Dobb’s with an 
opportunity to address an audience it’s lost touch with in recent years. (For an 
indication of the kind of 6502 material we have published in the past, see the note 
at the end of the “Realizable Fantasies” column elsewhere in this issue. ) 

Welcome, Micro readers. 

Changes have come to Dr. Dobb’s as well in the past year. This is the twelfth 
issue of the magazine published under the M&T banner (the hundred-and-sec- 
ond in all). I became editor-in-chief then (and thanks, by the way, to all those I 
failed to thank in my February editorial), and I instituted some new features in 
the magazine, including our first operating-systems issue (on Unix) and our 
unconventional coverage of the Mac (see our January how-to on home-fattening 
your Mac or this issue’s Realizable Fantasy on liberating the Mac). 

While making changes, I’ve tried not to lose track of what Dr. Dobb’s was 
founded to do: to provide software tools for advanced programmers. In 1976, 
those programmers were hackers and in 1985 they tend to be professional soft- 
ware designers, but after attending last fall’s Hackers’ Conference I’ve decided 
that the distinction is moot. 

Changes come thick and fast in the microcomputer industry, but in the thick of 
it all, some things must hold fast. Without Micro, without Microsystems, with- 
out Microcomputing, where does the programmer interested in 8-bit systems go? 
We promised, in our May and October issues, not to abandon the 8-bit computer, 
and we haven’t. We promised not to forsake public-domain and low-cost soft-. 
ware, and we haven’t. (We’ve also pointed out that purveyors of public-domain 
and commercial software must coexist. ) 

But there are changes yet to come. While we will not abandon our current 
readers, we'll be exploring new territory in 1985, ranging beyond the fields we 
know. The only way we can do this is to publish more material that is of broader 
applicability—not by lowering the technical level, but by giving more emphasis 
to algorithms, to techniques, to portable software, and less to machine-specific 
code. I claim that the overall effect will be to raise, not lower the technical level of 
the magazine without making it harder to understand. We'll see if I’m right. 

We'll also give more attention to the craft of software design in 1985, and to 
the aesthetics of design. If writing utilities produces utilitarian code, then I think 
that programmers should be writing efficiencies, elegances, beauties in addition 
to utilities, because we need more efficient, more elegant, more beautiful soft- 
ware. We’ll encourage that. 

And yes, I deliberately worked into this editorial the themes of my other eleven 
editorials. I’m sorry; I learned recursion at an early age and was warped for life. 


Mclaal Scrarsg 


Michael Swaine 


C hanges come and trip all your traps. You subscribe to Micro and you get 
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Imagine 
dBASE I[IT™ 
running up 
to 20 times 
faster. 


The tame 
for Clipper 


has arrived. 











Clipper introduces you to the tume of your life. 
Time is your most a time, every time you Developing a com- Then go make the 
valuable commodity. run a program. With piler for dBASE III was most of your life time. 
Because how you Oli lamenes you've just a matter of time. 
spend your time, ishow debugged your source —_—Call your dealer or our 
you live your life. code, it’s compiled into —_ toll free 800 number 
At Nantucket, we more efficient machine ——_ and ask for Clipper. 
believe you should live code. Your program 
life to the fullest. runs without the time: 
Clipper, the first true consuming overhead of 
compiler for dBASE redundant translation. 
II" is a timely exam- Clipper compiles all 


ple. Now, dBASE com- your existing us future 
piled by Clipperruns2 dBASE Ill programs. 
OPA SECS MULIE | 

dBASE with its stan- | 
dard interpreter. | 
A dBASE interpreter | 
painstakingly checks 
and executes your 
source code one line at 


Li 


NAT BIE <a 





20456 Pacific Coast Hwy, Malibu, Ca. 90265 (800) 5561234 ext. 225. In California (800) 441-2345 ext. 225 


| dBASE Ill is a registered trademark of Ashton Tate 
Circle no. 124 on reader service card. 


LETTERS 


Chubby Mac 


Dear DDJ, 

I would like to congratulate you for 
the excellent January [1985, #99] is- 
sue of Dr. Dobb’s featuring “‘Fatten 
Your Mac” by Tom Lafleur and Su- 
san Raab. Thanks to that article, I 
was able to upgrade my Mac for 
much less than Apple’s list price: I 
paid $200 total or around $11 per 
memory chip. 

Having never seen a hardware 
technical manual for the Mac that’s 
equivalent to “Inside Macintosh” for 
software, I found the diagnostics part 
of the article very useful. While doing 
the upgrade, I encountered socket 
connection problems that were solved 
by following the continuity test pro- 
cedure mentioned. 

Do you know what dealers or cus- 
tomers do with the 128K boards, for 
those who upgrade their boards the 
official Apple way? I was thinking 
that if I decide to pursue this and up- 
grade Macs for friends and for mon- 
ey, | will probably need some extra 
128K boards as a safety net. If you 
know people who have a 128K board 
that they are going to throw away, let 
me know. 

I am so happy to have a 512K Mac 
now that I decided to enter a l-year 
subscription to Dr. Dobb’s. Once 
again, congratulations to Dr. Dobb’s 
and the authors. 

Sincerely, 

Tho AuTruong 

908-B Menlo Avenue 
Menlo Park, CA 94025 


PUBlic Service 


Dear DDJ, 

A minor correction is needed to our 
article “CP/M 2.2 Goes Public (No- 
vember, 1984, #97)”. In Listing 2, 
page 70, the PUBLIC.ASM utility to 


8 


set or reset the PUBlic file attribute bit 
contains a bug, discovered by Greg 
Platt, that prevents it from making 
very large files PUBlic. 

Here’s the fix; Update the version 
equate to read: 

vers equ 1$1 
and insert the following code in the 
SAMEXT routine preceeding its 
“ret” instruction: 


mz svet al 

inx h — ;extent is 0, 
check overflow (s2) 
ext. 

inx h 

mov a,m 

ani 7fh 

ret ‘end of SAMEXT 
routine 


PUBPATCH—the BDOS patch that 
implements PUBlic file processing — 
is unaffected by the bug. 

Sincerely, 

Bridger Mitchell 

Derek McKay 

Plu*Perfect Systems 

Box 1494 

Idyllwild, CA 92349 


Dear DDJ, 

The article “CP/M 2.2 Goes PUBlic”’ 
by Mitchell and McKay, in your No- 
vember [1984, #97] issue was most 
informative and useful. However, the 
code text published with it had a few 
problems. Some specifics from List- 
ing One: the location definitions 
CKFILPOS and SETSTAT were mul- 
tiply defined (to be sure, the defini- 
tions were the same, but still rather 
irregular); ‘nxbyt:’ was referenced 
both as itself and ‘nxtbyte’, typo or 
program error [ can’t tell, since only 
the first six characters are frequently 





used. More serious was the use of a 
font in which both lower case *‘L’ and 
the number one used the same repre- 
sentation. This is common on type- 
writers, but rare on computer print- 
ers. Line 253 is definitely ambiguous 
as printed, although it can be deci- 
phered in context. 

At any rate, I was able to enter the 
program text, make the necessary 
corrections, translate it to true Z80 
code, and assemble it with the 
Z80MR assembler from MicroCornu- 
copia. Installation under ZCPR3 re- 
quired a little research to find the 
correct addresses, but they were 
there. Thus I no longer need to have 
long text files in the same user area as 
my PW or WS editor; this is a real 
convenience in the rather crowded di- 
rectories on my KayprolQ. My sin- 
cere thanks to the authors! 

Gratefully 

Bonnell Frost 

5559 Colt Drive 
Longmont, CO 80501 


Grep Again 


Dear DDJ, 
A belated thank you for grep.c [DDJ 
#96, October 1984], which I finally 
got around to typing in and compiling 
on my Osborne | with C/80. 

C/80 Version 3.0 from The Soft- 
ware Toolworks will not compile 
grep.c as listed because it has no: 


a) linker 

b) typedef statement 

c) FILE type 

d) #defined NULL 

e) stdin 

f) stdout 

g) stderr 

h) fgets 

1) stdio.h 

j) capability to call a function 
with a different number of 
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arguments than defined. 
To compile grep.c with C/80: 


In TOOLS.H: 
1. After #define NUL 0, 
add #define NULL NUL 
2. Add #define EOF -1 
3. Add #define TOKEN struct 
token 
4. As explained in Section 8 of the C/ 
80 Version 3.0 documentation add 
the following: 
#define FILE int 
#define stdin fin 
#define stdout fout 
#define stderr 0 
extern int fin, fout; 
5. In the typedef statement on page 
58 delete the words “typedef” and 
“TOKEN”. 


In TOOLS.C: 
1. Delete the two #include directives 
2. On page 61 add the argument 
““boln” to the omatch( ) call. The 
modified line should read: 
while(*lin & & omatch( &lin, 
pat, boln)) 
3. On page 64 change the expression 
(dstart — dest < maxccl) 
to 
(dest — dstart < maxccl) 


In GREP.C: 
1. Delete the 
“‘a:stdio.h”’ 
2. Change #include “‘b:tools.h” to 
#include “‘tools.h”’ 
3. Add #include “printf.c”’ 
4. Add #include ‘“‘tools.c” 
5. On page 77 change 
if(matchs(line, exprv[j])) 
to 
if(matchs(line, exprv[j],0)) 
6. On page 83 change 
bdos(11) 
to 
bdos( 11,0) 
7. At the end of grep.c add #include 
ST DLIB.C. 
Thank you, 
Robert C. Briggs 
1337 Rossway Court 
Los Altos, CA 94022 


line #include 


DD) 
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Are You In 
X/L Vet? 


The Ultimate Programmer's Editor 


Some folks have already discovered it. And they threw their other 
editors away! Why? Because XTC is incredibly powerful. It’s also 
easy to learn, and easy to use. XTC has MORE editing 

facilities for LESS MONEY — 99 bucks 
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These windows are 
really great! You can 
see several files at 
once — even different 
parts of the same file. 
That means you've got 
declarations in front of 
you while you're look- 
ing at the code that 
uses them! 

ls XTC protected? Heck 
no! We even give you 
the source on a disk for 





INTRODUCTORY OFFER 


Want to compare XTC with your editor? 
Just ask for our demo disk (only $5.00) 
and try it out. When you buy XTC, we'll 

knock five bucks off the price. 







XTC outperforms any other program- 
mable editor on all IBM /PC, /XT, and /AT 
computers (and true compatibles). XTC 
even works with your Sidekick and Turbo your recreation — 
Pascal from Borland! 7,000 lines of Pascal! 


To get your copy of XTC now, order : 
a 17 j E A zs 





it over the phone — we can ship it 
the same day! Or, you can send in 
an order, just like this one: 








XTC 99 bucks Box 266 +» Cheney, WA 99004 + USA + (509) 235-8088 
; é Ox . eney, ? . 

Shipping and Insurance..... 3.50 

Wash. res. add 1AaX: 7.99 Sidekick and Turbo Pascal are trademarks of 

Want it COD? Add thie 165 Borland, International. Wordstar is a trademark of 


MicroPro. Wendin and XTC are trademarks of Wen- 
din, Inc. 


TOTAL IT UP AND SENDIT QUICK! 


Circle no. 112 on reader service card. 


Phoenix makes programmers’ dreams come true. With the 
best-engineered, highest performance programming tools 
you can find. A full line of MS™-DOS/PC DOS programs 
and utilities no other company offers. All designed to help 
you write, test and deliver the best programs possible. 
Top-of-the-line quality at a price you can afford. 


Finally, A Lint For MS-DOS. 


Now you can get the full range of 
features C programmers working in 
UNIX™ have come to expect from their 
Lint program analyzer. 

With Pre-C™ you can detect struc- 
tural errors in C programs five times 
faster than you can with a debugger. 
Find usage errors almost impossible to 
detect with a compiler. Cross-check multiple source files 
and parameters passed to functions. Uncover interface bugs 
that are difficult to isolate. All in a single pass. Capabilities 
no C compiler, with or without program analyzing utilities, 
can offer. In fact, Pre-C outlints Lint, since you can handle 
analyses incrementally. 

And, Pre-C’s flexible library approach lets you maintain 
continuity across all the programs in your shop, whether 
you use Pre-C’s pre-built libraries, pre-existing functions 
you already have, or some you might want to buy yourself. 

Plus, you're not limited to one particular library, and 
Pre-C keeps track of all the libraries you’re using to make 
sure that code correctly calls them. $395. 





Special Thanks to Gasten Audrey of Framingham, MA. 


Pmate, Plink86, Pfix86 Plus, Pasm86, and Ptel are trademarks 
of Phoenix Software Associates Ltd. 









ends, Assemble Programs Twice As Fast. 


Pasm™ 86 assembles Masm files 2 to 
3 times faster than Masm 3.0. Pasm86 
supports 8086/88, 8087, 80186 and 
80286 processors. 

With Pasm 86’s built-in defaults, you 
can write code quickly since you won't 
7 : spend hours learning all the control 
statements needed at the beginning of your program. You 
can define symbols on the command line. Decide whether 
you want error messages or not. And, put local symbols 
within procedures. $295. 


Still Fixing Bugs The Hard Way? 


Pfix™86 Plus, the most advanced 
symbolic debugger on the market, 
eliminates the endless error searches 
through piles of listings. Locate in- 
structions and data by symbolic name, 
using symbolic addresses. Handle 
=— larger, overlayed programs with ease. 
An adjustable multiple-window display shows source and 
object code and data, breakpoint settings, current machine 
register and stack contents simultaneously. An in-line as- 
sembler allows program corrections directly in assembly 
language. Powerful breakpoint features run a program full 
speed until a loop has been performed n times. 

With a single keystroke you can trace an instruction and 
the action will be immediately reflected in source, object, 
data, stack, and register windows. Another key begins a 
special trace mode that executes call and loop instructions at 
full speed. Designed to work with both Plink86 and MS™ 
LINK linkage editors. $395. 


MS-DOS, and MS LINK are trademarks 
of Microsoft Corporation. 


es by Phoen 


Get The Lead Out 
Of Binary File Transfer. 


Ptel™ is the universal binary file 
transfer program for MS-DOS 2.0 or 
3.0. You can move binary files fast and 
accurately. Upload or download groups 
of files from Bulletin Boards or remote 
computers. Move files between dissim- 
ilar machines and operating systems. 

Prel’ S ghee binary protocol, Telink, offers better- 
than-Modem7 accuracy and performance. Faster transfer 
speeds. An on-screen update of error correction, blocks, 
transferred, and time to complete. 

Includes popular Modem7 and XModem protocols. With 
Checksum or CRC. Plus Kermit and ASCII. $195. 


Maximize Your Program’s 
Efficiency. 


Pfinish™ delivers the fastest running 
programs possible. This performance 
analyzer lets you “zoom in’’ on the 
inefficient parts of your program. 
Whether written in assembly language. 
C. Pascal. Fortran. Even Basic. Unlike 
profilers available today, Pfinish under- 
stands the structure of your program and reports the amount 
of activity and time spent in its subroutines or functional 
groups. Pfinish analyzes both overlaid and memory resident 
programs. Down to the instruction level. Reports are dis- 
played. Stored on disk. Or printed out. In tabular form or 
histograms. 

Do a dynamic program scan. Identify the most frequently 
executed subroutines. Find inefficient code that costs your 
program valuable time. Rank subroutines by execution fre- 
quency. $395. 








Pre-C and Pfinish are trademarks of Phoenix Computer Products 
Corporation. UNIX is a trademark of AT&T Bell Laboratories. 


Circle no. 122 on reader service card. 

















Why Work With A Primitive 
Editor? 


More than a powerful editor, 
Pmate™ is a text processing language. 
An emulator of other editors. A lan- 
guage-specific editor for C, Pascal, 
and Fortran. Pmate™ can even run in 
the background! 

You get full-screen, single-key edit- 
ing. Ten editing buffers. Horizontal and vertical scrolling. 
A “‘garbage stack’’ buffer. A built-in macro language with 
variables, control statements, radix conversion, tracing and 
120 commands that you can group and execute with a single 
keystroke. $225, 


Pmate 


Why Squeeze Your Program 
More Than You Have To? 


The Plink™86 overlay linkage editor 
brings modular programming to 8086/ 
88-based micros. Write large and 
complex programs without worrying 
about memory constraints. Work on 
modules individually, link them into 
executable files. Use the same module in different programs. 
Changes the overlay structure of an existing program without 
recompiling. Use one overlay to access code and data in 
other overlays. 

Plink86 links Intel-format modules. $395. 


Call (1) 800-344-7200. In Massachusetts (617) 762-5030. 


Or, write. 


Phoenix Computer Products Corp. 
1420 Providence Highway Suite 115 
Norwood, MA 02062 


KEALIZABLE FANTASIES 





by Mike Swaine and 
Bob Albrecht 


Liberating the Mac 


The Apple Macintosh embodies a 
frustration and an irony: an irony for 
anyone who knows the history of the 
company and observes that it is IBM 
rather than Apple that is selling an 
open-architecture machine; a frus- 
tration for anyone who knows the 
sense of power and satisfaction that 
comes from popping the cover off an 
Apple II to plug in a card and has 
come up against the closed design of 
the Macintosh. 

After setting an example for open 
design with the Apple II, Apple has 
created in the Mac an appliance com- 
puter “for the rest of us,” but some of 
the brightest people feel particularly 
excluded from that “us.” That’s un- 
fortunate, since the Mac implements 
a brilliant user interface using a pow- 
erful and well-designed microproces- 
sor. But for experienced program- 
mers, that interface can get in the 
way, and the bulk of the bandwidth of 
the microprocessor is swallowed up by 
the graphics. What Apple has done in 
producing the Mac is remarkable, but 
one of the things it has done is to make 
evident all the possible things it didn’t 
do. Some programmers seem to feel 
that the Mac has too much potential 
to be left to Apple, and have put forth 
various schemes for liberating the es- 
sence of the machine for their own 
version of “us.” This month’s Realiz- 
able Fantasies are all schemes for the 
liberation of the Mac. 


The Hacker’s Mac 

Lee Felsenstein has been talking for 
the past six months about something 
called “‘the hacker’s Mac.” The hack- 
er’s Mac is not in essence a commer- 
cial product or even a proposed com- 
mercial product, but a project. Lee’s 
intent appears to be to engage the 
imaginations of engineers and pro- 


12 


grammers who may grudgingly ad- 
mit that they like the Mac, but who 
know in their hearts that they would 
have done it better. 

The hacker’s Mac is a consensus 
design project with the objective of 
developing a computer that does all 
that the Macintosh does and more. 
Anyone who cares to contribute ideas 
to the design, may. Clearly that’s not 
a way to develop a commercial prod- 
uct; for one thing, nobody could hope 
to compete commercially head-on 
with Apple without Apple’s resources 
and Apple’s Macfactory. Well, sure. 
The endeavor may be, though, a way 
to learn the design of the Mac so inti- 
mately that you can find ways to ex- 
tend, improve upon the technology. 
All the Mac experts a year from now 
will not be Apple employees and 
alumni. Did Burrell Smith and Andy 
Hertzfeld and Bill Atkinson get 
something more than money out of 
their work on the Mac? Sure, and 
Lee seems to think that there’s no 
reason that others can’t get an educa- 
tion from creating a Maclike com- 
puter on their own—or with some 
help from friends. So he’s kicked off 
the hacker’s Mac project. 

As Lee has pointed out to me, a 
monthly magazine is an inappropri- 
ate medium for issuing progress re- 
ports on an ongoing project, particu- 
larly one that could move along as 
quickly as this one could. I shall re- 
port, then, only that Lee introduced 
the hacker’s Mac project at the 
Hacker’s Conference in the Marin 
headlands last fall and led the Home- 
brew Computer Club in sketching out 
the technical desiderata of the ma- 
chine in January. It is February as I 
write this; suffice it to add that you 
can follow the progress of the hack- 
ers Mac project on line by calling 
Gordon French’s BBS (the French 
Connection) at 408-736-6181. By 


press time, this board should have 
hacker’s Mac info; you can also learn 
more about the project by sending a 
self-addressed stamped envelope to 
Lee at Golemics, 2600 10th, Berkeley 
CA 94710. 


Free the ROM 64 

Steve Jasik, a veteran of Control 
Data and Sorcim, has written a pro- 
gram he calls MacNosy, “the disas- 
sembler for the rest of us.” 

MacNosy (Nosy for short) is an in- 
teractive disassembler for 1M Lisa 
systems and Fat Macs. According to 
Steve, it lets programmers recover 
the source code, or a reasonable fac- 
simile thereof, for any Macintosh ap- 
plication program, ROM or “code” 
type resources on the “System”’ file. 
It splits programs into procedures 
and referenced data blocks, and 
maintains journal files of its activity 
for later playback or trading with 
your friends. Steve brought a copy 
around to DDJ and demonstrated its 
capabilities, and, whatever Nosy’s 
strengths and weaknesses, it was 
clear that Steve, like the hacker’s 
Mac consensus designers, is working 
to liberate the Mac. 

Here’s how Steve views his project: 
‘“Nosy is more of a decompiler than a 
disassembler. Its purpose is the re- 
covery of source code in a human- 
readable format that reflects the in- 
tent of the code’s author. To achieve 
this goal, it treats the program it is 
disassembling as a tree of procedures. 
It does a tree walk to locate the re- 
gions that are code; the remaining re- 
gions are marked as data. At present 
it does not gather enough informa- 
tion to determine which data areas 
are really code (like procedures 
passed as parameters), and human 
help is then needed to give this infor- 
mation to it. One then repeats the 
tree search and continues, until the 
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program is in its original format, or 
some reasonable representation.” 

Steve sees the disassembler as ap- 
propriate for anyone who wants to 
understand 68000 and Macintosh 
programming techniques by studying 
others’ code and for developers who 
want to “find out what the ROM rou- 
tines are doing to or for them.” He 
also sees it as a tool for people who 
want to remove copy protection code 
from programs they want to run from 
a hard disk, and for programmers to 
find out how easy it would be for 
someone to remove copy protection 
code from their programs. 

You can get the current version of 
Nosy for $70 or maybe less from Free 


the ROM 64 in Menlo Park, 
California. 
Blue Light Special 


Then there’s the machine everybody’s 
calling the Jackintosh: Jack Tramiel’s 
Atari’s ST’s version of who the rest of 
us are. The ST, running Digital Re- 
search’s Maclike GEM user interface, 
will be sold in K-Marts at a price that 
will take desktop icons out of Yuppie- 
dom for the first time. Ron Jeffries (of 
The Jeffries Report) is impressed 
with GEM and with the ST, and seems 
to think that the machine will do well. 
Will it? Will icons play in Ham- 
tramck? Only The Marketplace 
knows for sure. (And is it true that 
DRI is convinced that MSDOS ma- 
chines represent the real market for 
GEM? Sigh.) 

“Liberation” is a slippery word; it 
has taken us from considerations of 
open vs. closed architectures to K- 
Mart Blue Light Specials in the 
Computer Department and Jack 
“business is war” Tramiel leading a 
war of interface liberation. Anyway, 
although Atari’s marketing strate- 
gies are a different kind of liberation 
of the Macintosh from reverse-engi- 
neering the machine or disassembling 
the ROMs, the ST is evidence that the 
user interface that Apple liberated 
from the workstations of Xerox 
PARC isn’t waiting for the Mac to 
carry it to the heartland. 


Virtual Slots 


But is all this Apple-tweaking really 
necessary? As Tiny BASIC author 
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Tom Pittman said in these pages two 
months ago, the Mac presents us with 
a new environment for hacking; if a 
few years ago you could accept the 
“closed architecture” of integrated 
circuits as opposed to discrete compo- 
nents, why not accept today the closed 
case of the Mac and concentrate on 
exploring its rich software environ- 
ment? You can’t plug boards into the 
Mac, but you can add desk accesso- 
ries. And external enhancements. 

And therein (in externals) lies the 
basis for Apple management’s recent 
claim that Apple has opened the Mac. 
Apple’s new LAN, goes the argument, 
gives the Mac “virtual slots.” 

The network is certainly open. Ap- 
ple has taken the lid off AppleTalk for 
developers, and many have taken ad- 
vantage of that fact. 3Com, for exam- 
ple, has developed an AppleTalk-to- 
Ethernet link. The protocols for 
AppleTalk are all public. Apple is 
making the multilevel network open 
at all levels, in the hope to “spur devel- 
opers to provide innovative products 
for AppleTalk.” It seems to be 
happening. 

Do virtual slots offset what some 
see as the Mac’s deficiencies as a de- 
veloper’s dream machine? Is Apple 
the true liberator of the Macintosh? 
Or is that just Apple’s fantasy? 


Free-floating Fantasy 


And now for something completely 
different. Everybody wants to define 
or redefine “hacking.” Steven Levy 
devoted a book to getting a handle on 
the term; the subsequent Hacker’s 
Conference wrestled with the defini- 
tion; old-time programmers wonder 
whether the term has been irrenewa- 
bly tarred by the brush of illegal-en- 
try pranks and mischief. Perhaps we 
need to liberate the word from defini- 
tion. Undefine it. Perhaps this liber- 
ating will happen as a matter of 
course, whatever we do. Perhaps lib- 
erating the word “hacking” is some 
part of what ‘“‘hacking”’ (or “‘to 
hack”’) means. 

Consider the denumerable set of 
all possible meanings of the term “to 
hack.” Call the cardinality of this set 
n. Proposition: n is the cardinality of 
the natural numbers, i.e., infinity (in 


the aleph-one sense). Defend the 
proposition by enumeration. 

Well, let’s see. (1) to hack is to un- 
define “‘to hack.” (2) to hack is to do 
more with less. (3) um, reader in- 
volvement here is welcome. 


“Hackers don’t grow older; they just 
get lazy or preoccupied or enmeshed 
in the bottom line. What was done 
once can be done again.” — Laran 
Stardrake. 


Micro Subscribers Please 
Note: 


MacNosy is not the first disassem- 
bler for an Apple machine we’ve pub- 
lished. In 1976 we printed a descrip- 
tion and a listing of a 6502 
disassembler, both written by Steve 
Wozniak and Allen Baum. People to 
whom good ideas come easily tend to 
be free with their ideas, and Woz, 
who recently left Apple over philo- 
sophical differences, has always been 
a believer in sharing knowledge. Over 
the years he has given away several 
pieces of 6502 code through the 
pages of Dr. Dobb’s, including the 
disassembler, floating-point arithme- 
tic and conversion routines, a (very 
simple) number-guessing game, and 
BASIC routines for renumbering and 
appending. 

It’s unlikely that we’d reprint the 
articles in Dr. Dobb’s. We want to 
run current 6502 material, and these 
pieces may be most appealing for 
their historical interest (although it’s 
instructive to read Woz’s code). But 
we could put together a reprint pack- 
age if there’s enough interest. We’d 
have to charge enough to cover the 
postage and printing and handling— 
probably three dollars. But we could 
throw in Andy Hertzfeld’s Lazarus, a 
program for resurrecting BASIC pro- 
grams on the Apple II. 

If you’d like to have such a reprint, 
write to The Woz Papers, c/o this 
magazine, and let us know. If interest 
is great enough, we’ll do it. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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by D. E. Cortes! 


DRI Drops Homebrew 
Systems 


An item in a recent BUSS gave us a 
mild panic. It seemed to say that Dig- 
ital Research had withdrawn CP/M 
Plus from sale. We called some peo- 
ple we know in Pacific Grove and 
found that the news wasn’t that bad. 
CP/M Plus is alive; it’s homebrewing 
that’s been given up for dead. 

DRI used to sell its various DOSses 
in generic form: the base code, un- 
configured to any hardware, needing 
a complete BIOS to run. Lots of hob- 
byists bought CP/M 2.2 that way; we 
and a few others bought CP/M Plus 
in the same form. 

No more. Today, most of DRI’s re- 
tail sales are of preconfigured sys- 
tems (for the IBM PC, mostly) and of 
languages such as DR LOGO, which 
need no configuration. The generic 
packages aren’t moving, our source 
said; they burden the inventory and 
bring in no revenue. So, DRI is phas- 
ing out retail sale of all generic sys- 
tems. An added-value vendor who 
wants to package and resell a DOS in 
quantity may license it, of course. 

But sales of unconfigured systems 
to individuals are ending. Wait, we 
protested, there are still a few of us 
who want to roll our own. What about 
us? Well, DRI doesn’t mind you get- 
ting a copy of a generic system, but 
they’re determined to shed the inven- 
tory burden. They are “talking to” 
third parties who may want to take 
over the sale of generic systems as a 
sideline, but nothing has been settled. 

If you think you might ever want to 
buy a single copy of CP/M Plus or 
CP/M 68K or Concurrent CP/M in 
generic form, write to the marketing 
folks at Digital Research (P. O. Box 
DRI, Monterey, CA 93942) and tell 
them. They think all the home- 
brewers have bought PCs and retired. 
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Criticism of Modula-2 


One of the oldest and most vigorous 
SIGs sponsored by the ACM is SIG- 
PLAN, the Special Interest Group on 
Programming Languages. Its month- 
ly newsletter, SIGPLAN Notices, has 
carried some of the most influential 
language papers ever published; yet 
because it isn’t a formal journal, it 
also carries some of the funniest and 
some of the most controversial papers 
as well. 

One item in the December 1984 is- 
sue falls into the latter category. 
“Some Concerns About Modula-2” 
by David V. Moffat of North Caroli- 
na State University appears to be in- 
tended as an antidote to some of the 
gushier praise lavished on Modula-2 
of late. Some of you may not have 
access to SIGPLAN Notices. Because 
we wouldn’t want you to miss out on 
a solid linguistic controversy, we 
thought we’d summarize Moffat’s 
points here. 

His first point is that, as a result of 
its relegating all I/O to procedures 
written in the language itself, Mo- 
dula-2’s I/O syntax is very low level 
compared to other languages. It 
“forces the programmer to use a dif- 
ferent procedure for each type, for 
each number of parameters, and for 
each default,” Moffat writes, where- 
as languages that contain built-in 
I/O statements, however inconsistent 
(think of Pascal’s pseudo-procedure 
WRITE), are a lot easier to use. 

He says that the standard I/O mod- 
ules are, in his opinion, “a hodge- 
podge of oversights, inconsistencies, 
duplicate names, and hasty patches.” 
And he gives examples: you cannot 
write real numbers to the terminal 
while accessing a file with the stan- 
dard module InOut; the I/O modules 
export many similar names, “‘so the 





simple Pascal ... statement ‘write(s)’ 
becomes ‘Terminal. WriteString(s).’ ” 

Moffat’s third point is an involved 
analysis of the portability of modules 
as object code. Because of the linker’s 
version checking, and because any 
implementor will have recompiled 
the standard I/O modules one or 
more times, he concludes that the 
modules will not port, which fore- 
stalls substantial traffic in precom- 
piled modules. But he doubts that 
distribution of modules in source 
form will work either, partly because 
developers are reluctant to release 
source but also “because the ‘stan- 
dard’ modules are not really stan- 
dard. There is no guarantee, and in- 
deed no real expectation, that a 
procedure in one version of a module 
will have the same syntax or seman- 
tics—or even exist—in another ver- 
sion of that ‘same’ module.” 

Moffat notes the absence of built-in 
provisions for varying strings, for sets 
large enough to cope with the alpha- 
bet, and for high-precision numeric 
types. And although he admits that 
‘all of these types can be simulated in 
modules, an activity that is too often 
beside the point of the program to be 
written, although a hacker’s delight,” 
their absence as efficient built-in 
types and the presence of “lots of fea- 
tures for systems programming” 
make it “plain that Modula is a sys- 
tems programming language, not a 
general purpose language.” 

Because the “effective size of the 
language is very great” (Moffat notes 
40 reserved words, 26 standard iden- 
tifiers, 130 identifiers in the standard 
modules, and “some implementations 
provide yet 200 more!’’), he deems 
Modula-2 confusing and ineffective 
as a teaching language. Because it’s 
neither general purpose nor good for 
teaching, he concludes that ‘‘Mo- 
dula-2 is not the successor to Pascal 
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or a substitute for Pascal,” as many 
have called it. He points to UCSD 
Pascal as ‘“‘a genuine extension and 
improvement of Pascal.” 

We'd enjoy seeing your informed 
comments, pro or con, on Modula-2 
and will print any that seem enlight- 
ening. However, if you feel moved to 
debate with Moffat specifically, you 
should read the original paper and di- 
rect your comments first to SIGPLAN 
Notices; we’re just some interested 
bystanders. 


Headless No More 


A few readers wrote to commiserate 
with us regarding the decapitation of 
our Shugart 860, dramatically de- 
scribed in the December 1984 issue. 
To our surprise, they didn’t think 
much of the Tandon half-height ei- 
ther. Rex Backus of St. Helena, CA, 
made a typical remark: “I really won- 
der if you were just lucky to get a 
working 848-2 with only one try or if 
Tandon is doing a better job with 
those drives than they did two years 
ago. ... I sent two drives back for re- 
placement before I got a pair to 
work.” The answer is probably yes, 
Tandon has improved; their latest 
drives, we hear, are quite different 
from their first efforts. 

However, these comments made us 
wonder. How many other people are 
suffering from such hardware prob- 
lems? More to the point, why are 
they keeping it a secret? That’s what 
this column is for; we /ove to collect 
anecdotal reports of the reliability (or 
lack thereof) of hardware and soft- 
ware. How are the Qume and Mitsu- 
bishi drives? 

One reader offered us more than 
sympathy. Chuck Schuetz called to 
say that when he’d worked for Shu- 
gart he’d had a hand in the design of 
the 860; that he knew exactly what we 
were talking about; and that he’d like 
to fix our busted drive. He took the 
headless drive for a weekend and re- 
turned it working perfectly. 

Chuck told us a lot about the 860. 
He maintains that it ended up as a 
really excellent drive in its final ver- 
sions but allows that it took a number 
of MLCs (machine-level changes) to 
reach that state. For example, the ear- 
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lier versions included a small boss to 
force an intentional bow in the dis- 
kette jacket; this boss had to be 
ground flat in later versions. In fact, 
most of the drive’s problems related to 
the positioning of the diskette jacket 
in the frame. The drag and varying 
speed that were our original problems 
most likely were due to a maladyjust- 
ment that let the eject slider bear 
against the corner of the jacket when 
the drive was closed. 

Schuetz is willing to advise other 





people with distressed 860 drives. He 
can get spare parts at reasonable cost 
and can handle a limited number of 
repairs as his spare time permits. He’d 
prefer your initial contact with him to 
be by mail; write him at 3675 Desoto 
Avenue, Santa Clara, CA 95051. 


Shadowy Printing 


OK, the Intern needs more help. Our 
Diablo 1650, sturdy companion 
through zillions of words, is getting 


.© We have over 200 





complete, tested, and, documented functions. 
All source code and demo programs are included. 





@ The library was specifically designed for software 
development on the IBM PC, XT, AT and compatibles. There are no royalties. 





© Over 95% of the source code is written in C. Experienced programmers 
can easily “customize” functions. Novices can learn from the thorough comments. 








We already have the functions you are about to nttte 


Concentrate on software development—not writing functions. 


THE C UTILITY LIBRARY includes: 


e Best Screen Handling Available ¢ Windows e Full Set of Color Graphics 
Functions @ Better String Handling Than Basic e DOS Directory and File Man- 


agement @ Execute Programs, DOS Commands and Batch Files ¢ Complete 
Keyboard Control e Extensive Time/Date Processing @ Polled ASYNC 
Communications @ General DOS/BIOS gate e And More @ 





@ The Library is compatible with: Lattice, Microsoft, Computer Innovations, Mark Williams 


and DeSmet. 


C Compilers: Lattice C—$349, Computer Innovations C86— $329; Mark Williams C—$449. 


C UTILITY LIBRARY $149 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ground, $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card, Visa, 


check or P.O. 





ESSENTIAL SOFTWARE, INC 
P.O. Box 1003 Maplewood, New Jersey 07040 914/762-6605 
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flaky. The figure below shows the 
problem. It shows lots of shadow- 
printed Os. As you'll see if the repro- 
duction is good, the amount of shadow 
varies from letter to letter. Some over- 
strikes are offset a little, some a lot. 

The problem seems to be a slight 
random variation in the carrier’s hor- 
izontal position. It shows the worst in 
shadow printing, but it can also be 
seen as a Slightly “dirty” look in pro- 
portionally spaced text. The problem 
is not in radial control of the type- 
wheel, because it can occur when the 
typewheel isn’t turning (as in the fig- 
ure), and it isn’t a typewheel prob- 
lem, because it affects all typewheels 
including new ones. It’s a problem of 
rapid, incremental, horizontal move- 
ment; it probably has an inertial com- 
ponent, since running the printer at 
half speed (300 baud not 1200) im- 
proves the output. 

We took it to a local Xerox Ameri- 
ca service franchise. They replaced 
the carriage and the horizontal drive 
motor. They claim they swapped out 
all the boards. At our urging, they 
checked the power supply under load. 
They kept the printer two weeks. 
They presented a large bill and said, 
‘There’s nothing wrong with it now.” 

Baloney. Shadow printing still 
looks awful. Are there any devilishly 
good printer techs out there who 
could tell us why? 


Well-Behaved Comments 


Back in October we outlined a method 
by which a C compiler could (1) de- 
tect which functions absolutely 
couldn’t be recursive and (2) allocate 


their local variables in common pools 
of static storage. Several readers were 
moved to comment on the scheme. 

David S. Tilton, whose letter last 
summer started the whole train of 
thought, found a hole in our scheme. 
Although we set out to identify all the 
well-behaved functions (WBFs), we 
ended up identifying only one of them. 
Tilton says, “Consider three functions 
which each make one call. A calls B, B 
calls C, and C calls B. Clearly B and C 
are part of a recursive loop and are 
therefore not WBFs. It is also clear 
that B and C constitute a closed set: 
the call from A to B cannot be part of 
a recursive loop, and A is definitely 
not recursive.” But our method would 
not classify it as a WBF. 

In part, that’s because we merged 
two distinct kinds of ill-behavior. We 
viewed as “‘potentially recursive” 
functions that called themselves or 
each other (functions B and C in Til- 
ton’s example) and also functions that 
called external or pointer-based 
names. A compiler in principle could 
recognize the limited scope of the for- 
mer (although neither we nor Tilton 
can think of a simple algorithm to do 
so), but it’s a peculiarity of C that the 
latter behavior is intractable. If A 
calls B, B calls C, and C is declared 
external, then we must assume that 
the external function C might call ei- 
ther A or B or both—we just can’t tell. 

James Jones of Norman, OK, 
pointed out that the method might be 
simpler if we reversed it, searching for 
the ill-behaved functions (IBFs) in- 
stead of the well-behaved ones. A di- 
rect IBF (DIBF) would be a function 
that was itself objectionable—de- 
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clared external, called itself, or called 
a pointer. Then a general IBF would 
be any function that called a DIBF at 
any level. In pseudo Prolog: 


IBF(f) if member(f,DIBF). 
IBF(f) if CALLS*(f,g) and 
IBF(g). 


Here CALLS* signifies the transitive 
closure over the CALLS(a,b) rela- 
tion. We can find the transitive clo- 
sure in order n-squared time, Jones 
reminds us, using Warshall’s algo- 
rithm. (The final phase of the method 
we described bore a strong resem- 
blance to Warshall’s algorithm. ) 
Jones cites David Gries’ Compiler 
Construction for Digital Computers 
(Wiley, 1972, page 39) as a source’ 
for Warshall’s algorithm, but heck, 
it’s easy to describe. 

Suppose i and j are both integers 


- between one and some maximum n, 


and suppose that you’ve defined a re- 
lationship R(i,j) that is true for some 
pairs (i,j) and not others. In our case, 
the relationship is CALLS(i,j), and 
it’s true when function i calls function 
j. We can express the complete rela- 
tionship in the form of a matrix of 
bits, B, such that B[i,j] is zero where 
R(,j) is false and one where it’s true. 

We really want not CALLS(i,j) but 
CALLS*(i,j), the transitive closure of 
CALLS: the relation that is true if 
function i calls function j directly or 
through any number of intermediate 
functions. Warshall’s algorithm to 
convert matrix B into matrix B* (us- 
ing pseudo-C notation) is: 


fori = l;ix< =njit +) 
forj = 15}; < =n;j ++) 
if B[j,i] then 
Bi, f=. Bi |: 


The innermost line signifies the 
bitwise ORing of row i into row j; it 
could be spelt out as: 


for(k = 1;k < =n;k + +) 
B[j,.k]! = B[i,k]; 


However, the algorithm is n-squared 
only when the rows of B can be ORed 
as single objects, preferably with a 
fast assembly subroutine. 

Jones and Jim Howell of San Jose, 
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CA, both commented that the Mo- 
torola 6809 CPU shouldn’t be tarred 
with the same brush we used for the 
8080; the 6809 handles stack-allocat- 
ed variables very well and wouldn’t 
benefit much from their being static. 
Howell notes that, lacking a smart 
compiler, C programmers can create 
their own data type 


#define LOCAL static 


and use it in the functions that they 
know to be nonrecursive: 


fun(arg) 
LOCAL int i,j; 


Then, Howell says, “when porting to 
a machine that can efficiently access 
variables on the stack, just change 
one line to 


#define LOCAL auto 
or even to 
#define LOCAL /* nothing */ 


All the local variables are now 
automatic.” 

Both Howell and Brian McKeon of 
Saugus, MA, noted that our method 
doesn’t take account of functions that 
could be called as the result of inter- 
rupts. Paul Canniff of King of Prus- 
sia, PA, commented that stack-allo- 
cated locals, especially arrays, 
conserve storage, and a compiler that 
makes locals static may produce pro- 
grams that are too big. Clearly, any 
compiler that used our method would 
have to provide a switch to turn it off. 
Alternatively, the compiler could take 
an explicit declaration of “auto” as 
barring static allocation. 


DD] 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite fortheIBMPC... 





UP PERISCOPE! 







First, you install the hardware. 


The hardware’s a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope’s resident symbolic debugger. No 
runaway program, however berserk it may 
be, can touch this memory! 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop your system in 
its tracks at any time. 


Use symbol names instead 
of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 
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Talk of “computer literacy” 
can sometimes be a mask for a 
botched and inhuman design. 
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“Computers evolved from scientific superbrains to busi- 
ness machines to household appliances; had they started 
out as video games, they would certainly have been de- 
signed with the user interface in mind.” 


cle, “Human Factors Guidelines for Terminal De- 

sign” (Communications of the Association for 
Computing Machinery, 26(7): 484-494, July 1983) is the 
starting point for our case study of human factors engi- 
neering and its application to the world of microcomputer 
software design. We will approach this investigation by 
examining a popular computer game and seeing how hu- 
man engineering concepts have been applied to make it 
simple, enjoyable, and useful. We will also look at some 
microcomputer software products and consider how and 
where we might apply these same concepts to them. 

Human factors engineering is that branch of systems 
analysis and design that deals with the interface between 
the computer user and the software/hardware combina- 
tion. On the hardware side, human factors engineering 
helps designers determine where they should place special 
function keys on the keyboard, what color monitor is least 
fatiguing, and so on. On the software side, it helps pro- 
grammers to design program menus, or choices to accom- 
plish certain tasks. Finally, human factors engineering 
addresses the user—problems of operator error (and how 
to handle these errors) and whether a computer or a pro- 
gram is sufficiently user friendly. 

Although human factors engineering probably should 
be an integral part of any computer hardware or software 
design, the numerous variations of keyboard layout and 
the contorted sequences of keystrokes required to operate 
some programs would indicate that human engineering 
has not been applied uniformly. For every powerful, ac- 
cessible, easy to use system available, many others per- 
form as if no one ever tried using them before making 
them available for sale. 


Ei he quotation above, from D. Verne Morland’s arti- 


Scrabble is a trademark of the Selchow & Righter 
Company. 


Terry A. Ward, Academic Computing Services, Universi- 
ty of Northern Iowa, Cedar Falls, IA 50614. 


Dr. Dobb’s Journal, April 1985 





The Product 


Let’s look at a popular microcomputer-based game system 
for playing Scrabble. For those unfamiliar with its rules, 
Scrabble is a crossword-puzzle game that can be played by 
two to four people. The players form interlocking words on 
the Scrabble playing board using letter tiles with various 
point values. The more common letters such as I or E are 
very low scoring (1 point each), while letters such as Q are 
worth more (in this case, 10 points). Players compete by 
using their letters and the various bonus squares on the 
board to maximize their score while minimizing their op- 
ponents’ opportunities. 

The computer variation of Scrabble involves MONTY, 
a self-contained, game-playing computer manufactured 
by the Ritam Corporation. Microcomputer versions of the 
game are available on diskette for both the Apple and the 
Radio Shack computer systems and have a similar opera- 
tion. Further information on the game appears at the end 
of this article. 

Basically, the self-contained MONTY (as we’ll refer to 
the game from now on) looks like an oversized calculator 
with a membrane keyboard, which has some specialized 
characters, and a small 4 X 8 LCD display window. Fig- 
ure | (page 20) shows a stylized view of the MONTY 
keyboard and display area. MONTY measures 6 X 10 
inches and weighs about two pounds. Within this small 
frame is packed a formidable Scrabble challenger—and 
an excellent example of human engineering. 


The Human Elements 

Human factors engineering has certain principles or axi- 
oms that are applicable to any computer application, 
whether it be an extensive payroll program or a game- 
playing computer. The first rule or axiom is to identify 
your system users. This may seem obvious when stated so 
baldly, but many software designers neglect to do this. 
Consider any number of word processing or text editing 
software systems. The hardware includes a keyboard and 
a video display screen, and a great many software prod- 
ucts for text editing refer to “screens” of information. 
However, screens are a convenience only to the hardware 
or to the programmer. Any user of word processing does 
not deal with screens. Writers write pages of books, secre- 
taries write pages of letters, and even programmers write 
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pages of documentation. The system is oriented toward 
programmer or hardware conventions that have no mean- 
ing to the word processing audience. 

Designers also fail to take into account the variety of 
people likely to use a computer system. A program written 
for other programmers (such as Unix or CP/M) can be 
terse, concise, and not particularly user friendly. But the 
average computer user who desires simply word processing 
capabilities or spreadsheet functions should not have to 
deal with obscure names for common functions. Programs 
for these users must provide easier access. CP/M shells 
(such as Unica or MicroShell) and menu-driven systems 
(such as the Morrow or Osborne systems) are attempts to 
match established programs with a new user audience. If 
the program is intended for everyone from programmers to 
the company vice president, it must provide some means of 
accommodating a wide spectrum of computer experience 
and computer literacy. 

Furthermore, software should make complex tasks man- 
ageable. Obviously, a trivial program may need little, if 
any, human engineering. Operating real programs, howev- 
er, is often sufficiently complex to require some assessment 
of the human element. In general, any application program 
can be subdivided into manageable tasks for the human 


A. 


Across : 


(Blank) 


cre 1 
MONTY keyboard layout: A4x8 Chara er LCD 
screen provides a window to the entire Scrabble 
board. The commands used in playing the game 
are printed in contrasting colors to make them 
more apparent. The point value of the letters is 
also reproduced on the keyboard. 





20 


operator. For example, WordStar, an intrinsically complex 
program, has a mind-boggling variety of commands, but 
remains a top-selling word processing program. This is be- 
cause WordStar makes information available in the form 
of help screens to anyone who fails to remember the arbi- 
trary keystrokes required for operation; sophisticated users 
may omit the help screens. This on-line help alleviates the 
problem of program complexity. As we will see in our case 
study of MONTY, this game uses the keyboard itself as a 
reminder for its functions. 

Finally, programs should weigh the consequences of 
operator error. If the consequences are truly catastrophic 
(such as file deletion or program abort), the program 
should not take such action lightly. Release 3.0 of CP/M 
(also known as CP/M Plus) has instituted automatic re- 
logging of diskettes to compensate for the common user 
mistake of switching disks without doing a control-C. 
When you do that, the dreaded ““BDOS ERROR” appears 
and the system must be restarted or rebooted. In general, 
programs should try to prevent accidental disasters due to 
operator error. MONTY does this without appreciably 
slowing down the game-playing process. 


Software Design Principles 

We have noted that our first general axiom is to consider 
the human elements in the human-machine interface. The 
second principle of human engineering is to design the 
product as much as possible to meet human needs—for 
feedback, consistency, memory aids, simplicity, and so on. 
We will now consider specific rules to follow when design- 
ing software. 

The first rule is to provide some means of feedback as 
to the program’s current status. Whenever the computer 
is doing something that may take a few moments, the user 
should be aware that the machine is still working. For 
example, a word-processing program will often appear 
totally ‘“dead” when it is doing a global search-and-re- 
place or advancing to a distant portion of the text. This 
can be both annoying and disconcerting; novice users may 
wonder as time passes if something is wrong. A simple 
display of a flashing asterisk could reassure them that all 
is well. 

The second rule is to be consistent in terminology and 
program design. If we require the user to enter informa- 
tion using the Return key, we should refer to it in our 
instructions as the Return key—not the Carriage Return 
or the Enter key. While you and I may know that carriage 
return, enter, and return are all synonymous, individuals 
new to computing will hesitate before assuming that the 
three names refer to the same key, as they rightly should. 

A third rule is to minimize the memory demands placed 
on human operators. We should not expect people to use 
our programs if they require more memorization than 
they are worth. The spreadsheet SuperCalc makes help 
available throughout the program for users who forget 
the exact requirements to specify a format, for example. 
This frees them to handle the task of problem definition. 

The fourth software design rule is to keep the program 
simple. Programmers are notorious for preferring the lat- 
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est and most complex versions with “‘all the bells and 
whistles,” but users simply want to get the job done. The 
program Bank Street Writer, while not in the same league 
as WordStar, nonetheless provides usable word process- 
ing capabilities to many people. I have even seen a review 
of Bank Street Writer written by a six-year-old child—an 
obvious endorsement of keeping it simple! 

A fifth rule is to match the program to the operator’s 
skill level. Many software programs assume that all users 
are equal: everyone must venture through countless help 
screens or menus to accomplish even the simplest task. 
For example, the SCSS conversational statistics package 
is very user friendly, but you must answer an abundance 
of questions to obtain even the simplest results. To plot 
two variables requires close to two dozen instructions, 
while a similar task in the statistical package MINITAB 
requires but three commands. Providing help screens on 
request only will accommodate both novice and advanced 
statistical users. 

Finally, our last rule for software design might be para- 
phrased as: “The user is always right.” Programs should 
filter and correct user mistakes. Often user error simply 
indicates poor program design. For example, our word pro- 
cessor requires that users remember that the Home button 
really means Down Arrow. Anyone who uses the key in- 
correctly is obviously guilty of user error, but the program 
actually invites just such an error. Always maintain a user 
or operator orientation. We are writing programs for peo- 
ple to use, not purely academic exercises. 


MONT Y—A Case Study 
As we noted above, MONTY is a hand-held computing 
device that can play Scrabble with up to three other oppo- 
nents. Let’s look at the design of this computer game with 
an eye toward the first axiom of human factors engineer- 
ing: identify your audience. 

Obviously, MONTY is designed for people who wish to 
play Scrabble. Beyond that, the audience may range from 
computer analysts to ten-year-old children to adults who 
are totally unfamiliar with computers. I know individuals 
in each of those categories who have successfully played 
MONTY with only minimal instruction. How is MONTY 
designed to appeal to this wide audience? 

To begin, the keyboard contains virtually all the com- 
mands needed to play the game. MONTY commands are 
superimposed on many of the alphabetic keys, printed in a 
contrasting color to distinguish them from the alpha char- 
acters. These commands are fully spelled out: one may 
“exchange” tiles or place them “‘across”’ the board. This is 
in contrast to many microcomputer programs that would 
abbreviate these commands as “‘xchng” or “‘a.”’ This user- 
friendly keyboard allows virtually anyone to begin play- 
ing with little if any training. MONTY has taken into ac- 
count the breadth of possible users and the diversity of 
their backgrounds without confusing one or patronizing 
the other. 

In MONTY, the major catastrophic errors are ending 
the game prematurely, exchanging tiles (and thus losing a 
turn), and impossible plays. When a player proposes to 
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end the game or exchange tiles, MONTY asks the user 
again if he or she is sure of this request. Only upon being 
told ‘‘yes” does the program implement this action. When 
players attempt an impossible play (such as placing tiles 
where they cannot legally go), MONTY returns them to 
the beginning of their turn. If you attempt to use a letter 
that you do not have, MONTY informs you of this and 
tells you which letter is missing. In all cases, the user is 
placed back into a logical position from which to try 
again. This is in contrast to many computer programs 
that will abort and place you in an unknown environment 
(such as CP/M) upon operator error. 

Obviously MONTY has followed the first axiom of hu- 
man factors engineering. We will now investigate how 
well our game-playing computer has utilized the six rules 
encompassed by the second axiom: design the product to 
meet human needs. 


Provide Feedback 

MONTY can take up to three minutes to find a word and 
make its play. A counter that is constantly displayed on the 
screen provides feedback while the program is calculating. 
When the counter reaches zero, MONTY plays its word. 
This feedback assures the opponent that all is proceeding 
normally. Likewise, requests for information are always 
accompanied by a listing of expected responses (such as 
yes/no or across/down). This feedback ensures that the 
user is aware of what is going on with the program. 


Be Consistent 

MONTY always requests information in a similar format or 
style when prompting for response. An inappropriate re- 
sponse is always greeted with a beep, and the request is 
issued again. It also uses the natural terminology of its users 
rather than the contrived terminology of computerdom. 


Minimize Memory Demands 

MONTY excels in this particular design goal. Embossing 
the keyboard with the commands reduces human memory 
demands to the bare minimum. By replacing human 
memory requirements with good software design, the pro- 
grammer frees the user to concentrate on the task at 
hand—beating a machine at Scrabble. 


Keep It Simple 

MONTY is totally self-contained. It requires that the 
player know only a few commands in addition to the rules 
of Scrabble. This is in contrast to much of the currently 
available microcomputer software. Programmers have a 
tendency to fill any available storage space with func- 
tions, relevant or not. The range of options is simply too 
great, and most people use only a limited subset of a ma- 
chine’s capabilities. Limiting the options to those most 
commonly used will encourage people to use the software 
rather than intimidate them with an instructional manual 
the size of a telephone directory. 


Match the User's Skill Level 
Here is an area where much of the available microcomput- 
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"MONTY offers four levels of play. Levels may be : 
_ increased or decreased without restarting ae : 
| Price: Apple, $39.95; Radio Shack, $34.95; self-con- 


_ game or program. Listed are typical words © 
- encountered at each level of play. 


er and mainframe software succeeds. MONTY presents all 
players with the same information and keyboard. It then 
accommodates itself to player proficiency by providing 
four levels of play (see Figure 2, above) and adjusting the 
rewards accordingly. MONTY rewards particularly good 
plays with a brief musical selection (such as the “1812 
Overture” or “Hail to the Chief”’); at level D, 50 points per 
play are required for “Hail to the Chief,” while at lower 
levels of play it takes a less impressive score. This feature 
relates to the sixth and final design principle. 


Sustain Operator Orientation 

This last principle is by no means the least. In fact, it may 
be the most important of the half dozen presented. Pro- 
grams are designed for people, not other programmers. 
Unix, for example, is an incredibly powerful software oper- 
ating system. It is, however, generally quite unsuited for 
the non-programmer. CP/M is likewise an excellent oper- 
ating system, but with its PIPs and CON:s and LST:s it is 
designed for the already computer literate. This is perhaps 
one of the great appeals of BASIC as a computer language 
or environment. Everything that needs to be done can be 
done in the one environment of the BASIC interpreter. You 
write your programs, you test them, you edit them and you 
even save and retrieve them from one, consistent environ- 
ment. This is in contrast to the typical mainframe situation 
where you must always know exactly where you are. Edit- 
ing commands are not recognized by the job control scan- 
ner and BASIC commands are likely to result in bizarre 
error messages if typed in at the wrong moment. In- my 
experience as a user consultant, this is perhaps the major 
complaint of most people using computers. The machine 
forgets that it exists for the sake of human operators and 
not the other way around. 


Conclusions 


This venture into human factors engineering via a game- 
playing computer should give some insight into the rea- 
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| software that doesn’t work. MONTY and other well-de- 


| world of software engineering for human beings. 


(a normally dry stream bed) 





sons people complain about computers and their associat- 
ed software. We are quite often to blame: many programs 
are not easy to uSe. Computer illiteracy often reflects pro- 
grammer insensitivity to people’s needs and desires. Al- 
though microcomputer sales are still quite healthy, I won- 
der whether we will see increasing disenchantment with 
































signed programs can provide a starting point to enter the 


““MONTY Plays Scrabble”’ 
Manufacturer: Ritam Corporation 
P. O. Box 921 
Fairfield, [A 52556 
(515) 472-8262 
Format: Apple II, II Plus, or Ile; Radio Shack TRS-80 
Model 1, 3, or 4; self-contained version 


tained, $129.95 
Description: MONTY has a basic understanding of Scrab- 
ble strategy and, combined with a vocabulary of up to 
44,000 words, can provide a formidable opponent to 
word game enthusiasts. 
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MODEL 1OO C COMPILER 


Now you Can write efficient programs for your 
TRS-80 mode! 100 with ease. Or, learn the 
essentials of C programming while traveling! 


C/100 - THE “PORTABLE” C COMPILER 
Gassette version (2-5-7. .is23¢ oS . $49.00 
Disk/Video interface version....... . $59.00 


MODELS Il, 12, 16 
MODELS Ill, 4 


TRS/C C COMPILER 
Full K&R with source to the 



















function library. UNIX 
eompoatiplen aot. 8 erat $85.00 


ZSPF EDITOR 

SPF, the choice of most 

mainframe programmers, is 

now available for Z80 machines. 

And it's panel driven so you 

Gan Customize tthe ¢ fot tes fa $75.00 








Model II version (run on mod II, then 
download object code to mode! 100) . . $79.00 
Model III version (as above for Mod III) . $79.00 










Write or call for information on other 
TRS-80 software. 






business utility software 


109 minna ste 423 san francisco ca 34105 


(415) 397-2000 


C fon the Model 200 
and, 
GPF for CP/M 


available soon 


Circle no. 8 on reader service card. 
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Shortcut to SCISTAR: For 
Prowriter Users 


by Amer W. Nelson 


24 


homas and Fletcher’s excellent 
a7 article, “SCISTAR: Greek and 

Math Symbols with Word- 
Star” (DDJ, August 1984), taught 
me what I needed to know to incorpo- 
rate those symbols, as well as super/ 
subscripts and underlining, into my 
writing. The real advantage of Thom- 
as and Fletcher’s method is their use 
of a universal command set common 
to all printers. The drawbacks, as I 
see them, are that MailMerge must 
be used and that a “hunt and peck”’ 
typist like me requires a lot of time to 
produce files like SCI.CMD and 
SCI.DAT. 


The shortcut I will describe has the 
disadvantage of being tailored strict- 
ly to the Prowriter. Nonetheless, I be- 
lieve that experienced users who un- 
derstand Thomas and Fletcher can 
make those changes necessary to in- 
corporate the shortcut in their own 
computer /printer configuration. 

As Table 1 (page 25) shows, I have 
retained or only slightly modified 
many of Thomas and Fletcher’s 
WordStar patches for the Prowriter. 
I elected to use WordStar’s own bold- 
facing (hence, no patch for that fea- 
ture), and I chose pica (10 CPI) to be 
my standard print with compressed 


Further information on how to incorporate Greek 
and math symbols into WordStar files. 


These drawbacks caused me to 
search for a shortcut to SCISTAR 
that my wife and I could use on our 
personal Osbornel /Prowriter sys- 
tem. I am a security analyst with a 
small investment company, and my 
wife is an EEG technologist. Because 
neither of us produces lengthy scien- 
tific papers, our use of Greek charac- 
ters, math symbols, and super/sub- 
scripts is limited. (I use an occasional 
8 to denote the relative volatility of a 
stock, an occasional M, in reference 
to the money supply, and a few super- 
scripts for footnotes; my wife makes 
use of the Greek characters a, 8, 6, x, 
u, and 6 to denote brain wave pat- 
terns and Q), the symbol for ohms of 
resistance. ) 


Amer W. Nelson, 12030 36th Ave., 
NE, Seattle, WA 98125. 


17 CPI pitch as an alternate. I used 
the command *PQ—related to 
USR1:—to enter the Prowriter’s In- 
cremental Print Mode before typing 
special characters and the command 
*PR—related to USR4:—to return to 
the Prowriter’s Logic Seek Print 
Mode (see the model 8510A user’s 
manual, page 46). 

It’s particularly important to im- 
bed your *PQs and *PRs between 
paragraphs. When the Incremental 
Print Mode is on, printing is unidirec- 
tional, but when operating in the 
Logic Seek Print Mode, printing is 
bidirectional. If you try to bounce 
back and forth between them in the 
middle of a paragraph, you may find 
one line printing on top of another. 
To avoid such a problem and to con- 
serve paper, I make it a general rule 
to enter the Incremental Print Mode 
before typing any paragraph where I 
intend to use special characters (be 
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they Greek, math, or super/sub- 
scripts) and to return to the Logic 
Seek Print Mode at the end of that 
paragraph. Because I use WordStar’s 
boldfacing and underscoring fea- 
ture—the latter through RIBBON: 
and RIBOFF:—I need not change 
print modes just to print in boldface 
or to underline. 

Table 2 (page 26) contains specific 
commands that produce special char- 
acters: Greek, math, super/sub- 
scripts, and a few others. Remember, 
however, once you are through using 
one of the special characters and wish 
to return to English characters, you 
must type a “PE. Thus, to print some- 
thing like mr?, you would type *~PW/ 
“*PEr*PWQ’PE. Similarly, to print a 
chemical representation of molecular 
composition like H,SO,4, you would 
type H*PV*PWQ*PE*PVSO*PV 
fewer PY. 

Also remember that you cannot 
mix boldface and underlining with 
special characters on the same line. 
As Thomas and Fletcher point out, 
the Prowriter will print an alpha 
when it receives a 20H. 

One advantage of my shortcut is 
that you can print the Greek gamma 
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without jumping through hoops. 
Without: using MailMerge, you can 
send a ” (22H) as a variable. More- 
over, if you’re trying to type eight or 
nine pages with only a few special 
characters imbedded in the text, you 
can print out your file much more 
quickly in the bidirectional mode, us- 
ing the unidirectional (Incremental 
Print) mode only as needed. 

_ Table 3 (page 27) contains some 


additional information, unrelated di- |: 


rectly to this article, that may never- 
theless be of interest to Osborne] us- 
ers. If you’re interested in learning C 
language programming, it would be 
nice to know how to type (and print) 
a{ora}. 

This works too! (Refer to page 29 
of the August 1984 Dr. Dobb’s Jour- 
nal.) Typing x *PT *PW (space) 
“PE. “PT (spacey (PWeeres 
(space) *PW!Q *PE is an inequality. 
produces the following print: 

x > 6? is an inequality. 

Nice, huh? 


DD) 


Reader Ballot 
Vote for your favorite feature/article. 
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aT LAST 
S-100 <—) 488 
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DOES 
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IT TO DO 










D&W DIGITAL, INC. 
20655 Hathaway Avenue 
Hayward, California 94541 
(415) 887-5711 
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The First 
Multiple File 
Programmable Editor 


pure InfoWorld 


has been 
acclaimed Software Report Card 


for the last 
five years 
as the 
Industry 
Standard 
in text 
editing. 











VEDIT 1.36 


Performance 


Documentation 


() (3 LO Poor 
OOOO Fair 


Ease of Use 


OW 0 0 Geod 
N OANN Excellent 


Kees 


Error Handling = —_ 


Now there’s VEDIT PLUS. 
VEDIT PLUS is the ideal tool for 
program editing and technical writ- 
ing. It gives you every editing func- 
tion you expect, plus it can: 
e Edit multiple files of any size 
© Compare files 
© Be fully customized 
e Perform arithmetic computa- 
tions 
e Be expanded with print format- 
ting & spell checking-correcting 


The power of VEDIT PLUS lets you 
increase your productivity with: 


e Numeric, relational, and logical 
functions 

e If-Then-Else decision making 

Easy file handling 

e The ability to create prompts for 
user input and menus 

e Special programming features 


Expect a lot from VEDIT PLUS. 
It’s small (23K), fast and it’s from 
CompuView - nationally recognized 
for user support. 


VEDIT ELS. Soe eS $225 
VEDI) Seer Ce: $150 


CompuView 


PRODUCTS, INC. 


1955 Pauline, Ann Arbor, MI 48103 
(313) 996-1299 - (800) 327-5895 
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/ case English chi 
like pi and phi, just leave two spaces and do them by hand. 


/ ters, type a “PE. Fi 
> space> “PW(sj cer 'PE<space>*PW#3)* “PE. 


 *PWE 














___ (theta) 
fea . 
_ (kappa) 
i 
xi) 
een 
{py 
_ (rho) _ 
sigma) 

_ (tau) 
Woon 

— (ph 
(chi) © 
Ao as 
een 








Sbe ce 65 44S CE eS 













upper-case alpha is A , upper-case | 


on. For those upper- case Greek characters that the Prowri 





When you are through with Greek characters or any other ¢ special charac- 
For instance, to print dvx a ‘OuK, tyre PwWasy PE . 






Other available oe (characters) include the iolewing: | - _ . 


2PW> or : (square root sign) _ 
sees Nope squet 


“PWA 
“PWB 
“PWC 
“PWD 


oO 
— *PWe@ _ | _(arowup) ts” 


‘Grow Sonn / _ 
(arrow left) — 
(arrow right) 
(plus or minus) — 
(not equal) 
(greater than or equal) 
(less than or oa) 
(approximates) a _ 2 | 


*PWE 
“PWG 
“PWH 


PAVE eH] 


Table 2. 
Special Character Commands 
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Type: 
“PWI 
“PWJ 
“PWK 
— PWL 
| *PWM 
| “PWN 


eewo 


| *PV-PWP 
_7PwOa 
*PV*PWO 
“PWR 
*PV*PWR 
“PWS 
“-PV*PWS 
“PWT 
“PV*PWT 
“PWU 
— *PV*PWU 
“PWV 


“PV-PWV 


PW 
 -PV PWW 
-PWX 
“PV PVVX 
“PVVY 
“PV PWY 
“PWZ 
“PV PWZ 
“PW 

“PV “PW 
“PVW\ 

“PV "PW\ 
“PW 
“PV*PW] 
~pyy>* 
“PV PW 
Pv 
PV PVWV__ 


*The trailing ~ is nota ‘control 


_ Type: 


<CONTROL> equal sign 
<CONTROL> comma 
<CONTROL> period 
<CONTROL> slash 


The left- and right-hand braces are particularly useful to those interested in 


learning C programming. 


Some Characters not on the Osborne1 Keyboard 
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(Table 2 continued) 


To get: 


/ 


Table 3. 


(dot for multiplication sign) 
(earth symbol) 


(infinity) 
(therefore) 
(one half) 


(one quarter) 
(degree or super zero) 


(sub zero) 
(super 1) 
(sub 1) — 
(super 2) 
(sub 2) 
(super 3) 
(sub 3) 
(super 4) 
(sub 4) 
(super 5) 
(sub 5) 
(super 6) 
(sub 6) 
(super /) 
(sub 7) — 
(super 8) 
(sub 8) 
(super 9) 
(sub 9) 


(Super open parenthesis) 
(sub open parenthesis) 
(super close parenthesis) 
(sub close parenthesis) 


(super plus) 
(sub plus) 


(super minus) 


{sub minus) 


super period) 


( 
(sub period) 
( 


super asterisk) 
(sub asterisk) 
(super slash) 


(sub slash) 


.’ Itis a caret, the upper-case 6. 


(a back accent or grave) 

(a left-hand brace) 

(a right-hand brace) 

(a tilde as used in Spanish) 


‘This is a beautifully 
documented, incredibly 
comprehensive set of 
C Function Libraries.”’ 
— Dr.,Dobb’s Journal 


ge ft 
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COMPLETE 
SOURCES 


Pe PACK |: Building Blocks | 
250 Functions: DOS, 
Printer, Video, Asynch 





























ee PACK 2: Database 
100 Functions: B-Trees, 
Variable Records 

















33 PACK 3: Communications 
135 Functions: Smart- 
modem™, Xon/Xoff, 
Modem-7, X-Modem 























pe PACK 4: Building Blocks II 
100 Functions: Dates, 
Text Windows, 

Pull-down Menus 
Data Compression 











gf PACK 5: Mathematics | 
35 Functions: Log, Trig, 
Square Root 

















He PACK 6: Utilities | $99 
Archive, Diff, Replace, Scan, 
Wipe (Executable Files only) 










Lattice™, Microsoft™, DeSmet™, 
Cl-86™ Compilers on IBM PC/XT/AT™ 


Small and Large Memory Models. 


Credit cards accepted 
($7.00 handling/Mass. add 5%) 


ean ia 
ree 
inc. 


Lolo ={-10](e)ce me) icet=it 
Burlington, Mass. 01803 
(617) 273-4711 


NOVUM ORGANUM 
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fx8O0char: A Character Editor for 
Epson FX-80 Printers 





by David D. Clark 


28 


hen Epson announced the 
VV FX-80/100 series of dot 
matrix printers, micro- 


computer users were attracted imme- 
diately because of the variety of de- 
sirable features offered at a low price. 
One of the things that attracted me 
was the ability to redefine the stan- 
dard character font. Such a capabili- 
ty is useful, if only because technical 
papers almost always seem to require 
characters that your printer normally 
can’t print. 

The FX-80 also makes a good draft 
printer. If you prepare a document 
for printing with a letter quality 
printer such as a Diablo or NEC, 
printing early drafts can be tedious 
because the printers are so slow; the 
normal character set of a dot matrix 
printer, however, may not correspond 
to the characters available on the 
print element used with the letter 
quality printer. With the Epson, you 
can redefine the dot matrix charac- 


development of alternate character 
sets for use on the Epson FX-80/100 
series of printers. Written in the Eco- 
C version of C for CP/M, the pro- 
gram provides a screen-oriented 
character editor, the ability to read 
and write disk files containing char- 
acter set definitions, and commands 
to download new character sets to the 
printer. 


Commands 

After fx80char is started, it displays 
a menu of commands. To select a 
particular command, you just type 
the highlighted character. It is not 
necessary to hit a <Ret> after typ- 
ing the character. This section dis- 
cusses each of the commands in al- 
phabetical order. 

The Activate command is used to 
toggle the use of the printer’s ROM or 
RAM character set; it is assumed that 
the ROM set is active when the pro- 
gram starts. The first use of the Acti- 





The most underused printer feature may be the 
redefinable character set. This too! makes the feature 
more usable. 





ters to correspond exactly to those on 
the print element of the slow printer. 
In my case, I have access to a letter 
quality printer at work and use the 
FX-80 at home. By redefining the 
standard characters, I can get a rea- 
sonable facsimile of how the docu- 
ment will look when printed at my of- 
fice while still working at home. 

The program described in this arti- 
cle, fx80char, is designed to aid in the 


David D. Clark, 126 Birchview Dr., 


Piscataway, NJ, 08854. 


vate command causes the printer to 
use the character set stored in RAM 
for subsequent printing. Successive 
uses of this command will toggle be- 
tween the two character sets. The 
program always displays the active 
character set after executing this 
command. 

The Edit command is used to cre- 
ate or alter a particular character. 
When you enter the character editing 
routine, you will be asked for the 
number of the character to edit. This 
number is simply the decimal number 
associated with the ASCII character. 
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A number is requested because some- 
times you can’t enter the desired 
character from the keyboard. 

After you enter the number of the 
character, the character itself, as cur- 
rently defined, is displayed on an en- 
larged “easel” for editing. You can 
move the cursor around within the 
easel, as well as “flip” the state of the 
individual elements. Elements dis- 
played in reverse video represent the 
pins of the print head that will be 
fired and where ink will appear when 
the character is printed. 

There are two equivalent groups of 
movement commands. The first is 
similar to that used by WordStar: 
Ctrl-E moves up, Ctrl-D moves right, 
Ctrl-X moves down, and Ctrl-S 
moves left. You can use Ctrl-F to flip 
the state of the element upon which 
the cursor rests. The second allows 
you to use a numeric keypad for edit- 
ing: 8 moves the cursor up; 6 moves it 
right; 2 moves it down; 4 moves it left; 
and you can toggle the current ele- 
ment by tapping 5. The two groups of 
keys may be mixed at any time. 

When alterations to a character 
are complete, typing a Q or Ctrl-Q 
updates the character definition and 
exits the editing function. During the 
update process, the character is con- 
verted from the form used for conve- 
nient display to the actual form used 
when sending definitions to the print- 
er. The definition is checked for two 
types of errors: characters nine ele- 
ments high and characters with con- 
secutive printing of horizontally ad- 
jacent dots. Because the FX-80/100 
can print only characters that are 
eight or fewer cells in height, defini- 
tions with nine cells are not allowed. 
Similarly, although eleven horizontal 
positions are available, the FX-80/ 
100 can print no two consecutively. If 
an inadmissable definition is detected 
during the conversion process, a mes- 
sage to that effect is displayed. No 
further action, however, is taken: the 
character will be converted but the 
definition will not print correctly. At- 
tempting to send such a definition to 
the printer will produce indetermi- 
nate results. 

The Initialize command is used to 
clear the buffer that holds the char- 
acter definitions in the program’s 
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memory. This command has abso- 
lutely no effect on the printer or on 
the contents of its memory; it simply 
inserts housekeeping information 
into the buffer and sets all definitions 
to blanks. This command gives you a 
“clean slate’ to work with. It is a 
good idea to execute this command 
before building a new character defi- 
nition file from subsets of previously 
defined files on disk (see the Read 
command below). 

The Load command loads the 
printer RAM with the contents of the 
printer ROM. It does not transfer 
data between the computer and the 
printer. It is useful primarily to check 
the proper functioning of the print- 
er’s RAM. You also can use it in con- 
junction with the Overlay command 
to replace parts of the standard char- 
acter font. 

The Overlay command is used to 
redefine all or part of the printer’s 
character set using definitions from 
the program’s character buffer. This 
command displays a menu with op- 
tions to redefine all characters, a 
range of characters, or a single 
character. 

If you request that a range of char- 
acters or a single character be rede- 
fined, you must select the limits of 
the range or the single character as 
decimal numbers, just as in the Edit 
command. If the selected characters 
are not within the range of legal char- 
acters (0-225), or if the low end of a 
range is greater than the upper end, 
an error message is displayed and no 
characters are changed. 

The Print command is used to print 
out the entire character set. After 
you have Overlayed the printer’s 
RAM character set with newly de- 
fined characters, use this command 
to see what they look like. Remem- 
ber, to be printed, redefined charac- 
ters must be Overlayed in the print- 
er’s RAM, and the RAM character set 
must have been Activated. 

This command exposes one of the 
program’s foibles. Character 127, the 
alternate zero, is not printed: in its 
place is a blank. I couldn’t figure out 
how to print the alternate zero under 
program control. You must set a 
switch inside the printer itself (see 
your printer’s user manual). 





C Programmers: 
Program 
three times faster 


with Instant-C 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 












Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 
message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 
your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don't 
need to recompile or reload using special 
options. 


Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087* co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Guaranteed, or 
your money back. Instant-C™ 

is available now, and works under 
PC-DOS, MS-DOS*, and CP/M-86*. 

Find out how Instant-C™ is changing 
the way that _ Programming is done. 
Instant-C™ is $495. Call or write for 
more information. 


Rational 


Systems, Inc. 
(617) 653-6194 
PO. Box 480 
Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.), 8087 (Intel Corp. ). CP/M-86 
(Digital Research. Inc.). Instant-C (Rational Systems. Inc.) 
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The Read command is used to re- 
trieve previously defined fonts from 
files on the disk. You first are asked 
for the name of the file. After you 
enter the name, a new menu is dis- 
played giving you the option of read- 
ing all of the characters, a range of 
characters, or a single character from 
the file. 

If you select to read a range of 
characters or only a single character, 
you again are asked to supply the lim- 
its of the range or the number of the 
character. If any of the numbers are 
























Summit Software 
Technology, Inc.™ 


P.O. Box 99 
Babson Park 
Wellesley, MA 02157 


1-800-225-5800 


BetterBASIC is a trademark of 
Summit Software Technology, Inc. 
IBM PC, IBM PC/XT and PC/DOS 
are trademarks of International 
Business Machines Corp. MS-DOS 
is a trademark of Microsoft Corp. 
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WHY WOULD ANY 
SANE PERSON 
SPEND $199 
FOR A BetterBASIC 
SYSTEM 

WHEN DOS’s IS FREE? 


HERE ARE 10 REASONS: 
TEST YOUR SANITY 


I e Full support for 640K memory 2. Structured language with BASIC 
syntax 3. Separately compiled program modules 4, Speed: FAST 
5. Extensibility (Make your own BASIC) 6. User-detined procedures 
and functions 7. Built-in windows support 8. Interactive programming 


language based on an incremental compiler 9. 8087 math support 


10. Runs on IBM PC, IBM PC/XT and compatibles 


NOW AVAILABLE FOR 
THE TANDY 2000 & 1200 


BASIC 
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outside the legal range, or if the lower 
limit exceeds the upper limit, an error 
message is displayed and no action 
takes place. If the program cannot 
open the file or read its contents, an 
error message to that effect is dis- 
played. Check the spelling of the 
filename. 

As mentioned above, if you intend 
to create a font by building it up 
through successive Read commands 
on a group of character definition 
files, invoke the Initialize command 
before you start. If not, the newly 
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Order BetterBASIC Now 













Price: $199 

8087 Math Module: $99 
Runtime System: $250 

Sample Disk: $10 







MasterCard, VISA, P.O. Checks, 
Money Orders, and 
C.O.D. accepted. . 







built definition may redefine charac- 
ter O to a blank or possibly crash the 
program, system, and printer. In ad- 
dition, you may find it impossible to 
Read the uninitialized font definition 
after it has been stored on disk. 

The Write command is used to 
store the contents of the character 
definition buffer into a file on the disk. 
You will be asked to enter a name for 
the file. If the file already exists, its 
contents are lost when the new file 
overwrites it. If the program cannot 
create the file or detects some I/O er- 
ror, an error message 1s displayed. It is 
a good idea to make sure you have 
enough space on the disk for all the 
files you intend to create before you 
start the program. If the program 
crashes because of insufficient disk 
space, all of your work since the last 
Write command will be lost. 

The Write command saves the en- 
tire character definition buffer. It 
cannot operate with only a range of 
characters or a single character. 

The Quit command is used to exit 
the program. Remember to save any 
newly created or altered definitions 
with the Write command before Quit- 
ting or you will lose all your work. 


Using the Program 

Before you start the program, be sure 
that the switch in the printer that de- 
termines how the 2K buffer will be 
used is set so you can store your char- 
acter definitions. To start the pro- 
gram, type fx80char followed by a 
carriage return. You can also enter a 
filename following the program 
name; fx8Ochar will assume that the 
file is a character definition file and 
attempt to read it into the program’s 
character buffer. 

The usual sequence of actions dur- 
ing a session with fx80char involves 
Activating the printer’s RAM charac- 
ter set, Reading a character defini- 
tion, Editing some of the characters, 
Overlaying the new characters in the 
printer, and Printing the new charac- 
ter set. You usually repeat the Edit- 
Overlay-Print cycle several times dur- 
ing a session as you make changes to 
the character definitions. When you 
are finished, you probably will want to 
Write your revised character defini- 
tions to a file for permanent storage. 
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SOFTWARE DEVELOPERS 


Add Touch Tone™ interface and Sound to your programs with 


SoundTools" 


Touch Tone data entry is now at your fingertips with this inexpensive programming package 
for the IBM PC, XT, AT and compatible personal computers. 


a 


| e° A whole new world of 


SoundTools + PA wy software applications! 





Use Digital Pathways’ SoundTools software (and Communicard™) to enhance your current 
applications and develop new ones that will: 

— record and playback voice/sound 

— provide remote data entry via Touch Tone 

— perform automatic pulse and Touch Tone dialing 

— detect call progress (ring, busy, voice, etc.) 


SoundTools supports all of these languages... Interpreted and Compiled IBM BASICA and 
MS BASIC, MS PASCAL, C and Assembler. 


List price only $449 


Includes SoundTools software, Communicard, modular telephone cord and user’s manual. 
Ask about 21 day trial offer when placing your order. 


Communicard is a 1/2-size card that provides complete telephone interface, microphone and 
auxiliary output and Touch Tone decoding. 


Requirements: PC/MS-DOS 2.0, 2.1, 3.0 or 3.1; IBM PC, XT, AT or compatible; 192K memory, 
DMA channel 1. 


You too, can put your software on a SOUND FOOTING... 


DIGITAL PATHWAYS, INC. 
1060 EAST MEADOW CIRCLE, PALO ALTO, CA 94303, 415-493-5944 


Sou tye? eee icard and SoundWare are registered trademarks of Di f ital fe Inc. 
fa oe red trademark of International Business Machin 
registered trademark of Microsoft Corporati ig 
Touch Tone is a trademark of AT&T. 
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When you want to use a different 
character set from another program 
(for example, to print a draft copy of a 
document), run fx80char, Read the 
new character set from a file, then 
Overlay the new character set. After 
you exit from fx8Qchar, the altered 
character set will be used for printing 
until you turn off the power or run 
fx80char again and replace the set. 

Some of my friends and I have been 
using this program for some time. We 
have yet to find any errors. The most 
common mistake we make seems to be 
Quitting the program before Writing 
revised definitions to a file. 


The Program 
The source text for the program is di- 
vided among five files written in the 
Eco-C version of C for CP/M. These 
consist of the header file FX80.H 
(Listing One) and the files 
FX80CHAR.C, ACTIONS.C, ED- 
CHAR.C, and PRNOUT.C (Listings 
Two through Five, respectively). 

FX80.H (Listing One, page 34) 
contains the global #define, data 
structure, and variable declarations. 
This file should be included in all C 
source modules making up the pro- 
gram. In addition, one and only one 
of the C source modules must define 
the macro MAIN before inclusion of 
FX80.H. This defines the global char- 
acter buffer pointer, struct chrary 
*chrs, in that file. All other files 
(those without the macro MAIN) will 
compile only a declaration of *chrs as 
an external variable. 

struct chrary defines the structure 
of the elements that will make up the 
program’s global character buffer. It 
is fairly straightforward. The chrnum 
member contains the number of the 
character, which corresponds to the 
numbers requested in the Edit, Over- 
lay, and Read commands. The attrib 
element contains the attribute byte 
for the character as currently de- 
fined: the program uses only two val- 
ues for this byte to distinguish be- 
tween printing with the upper or 
lower eight pins of the print head. 
The program generates no spacing 
data for proportional characters, and 
ary simply contains the sequence of 
bytes needed to define the character 
to the printer. 
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The variable chrs is a pointer to a 
variable of type struct chrary. When 
the program starts, an array large 
enough to hold NUMCHARS ele- 
ments of type struct chrary is allocat- 
ed; chrs points to the first element. 
The variable then is used globally 
throughout the program. 

FX80CHAR.C (Listing Two, page 
36) contains the main program func- 
tion and miscellaneous utility rou- 
tines. The function main( ) attempts 
to allocate space for the global char- 
acter buffer and to assign the vari- 
able *chrs to point to it. If the alloca- 
tion fails, the program will abort. If 
the allocation succeeds, the program 
will zero (not initialize) the character 
buffer. The character buffer is allo- 
cated dynamically to decrease the 
size of the code file (and to speed up 
program assembly and linkage). 

The program then checks to see if a 
command line argument has been 
specified. If so, the program inter- 
prets the argument as the name of a 
character definition file and attempts 
to read it into the global character 
buffer. When all initialization is 
complete, the function mainmenu( ) 
is invoked to handle the command 
loop. 

ACTIONS.C (Listing Three, page 
42) contains most of the functions 
that actually implement the com- 
mands available from the main menu 
level. These are all pretty obvious, 
many simply sending sequences of 
commands to the printer. 

EDCHAR.C (Listing Four, page 
50) contains the character editor 
function. After the user enters the 
number of the character to be edited, 
the element is “unpacked” into the 
static external variable cary. This is a 
two-dimensional array with one ele- 
ment of type unsigned, corresponding 
roughly to each bit in a variable of 
type struct chrary. Unpacking the 
bits into this variable makes the edit- 
ing process much simpler and faster 
because individual bits of the charac- 
ter definition need not be accessed. 
The character display and cursor 
movement are fairly obvious. At the 
end of the edit, the character is 
checked for errors in definition and 
repacked. 

PRNOUT.C (Listing Five, page 56) 


contains the function to print the 
character set. printall( ) loops 
through all 256 characters, testing 
whether the character falls into one 
of five classes. If it is a normal print- 
able character or its italic counter- 
part, the character simply is sent to 
the printer. If it is a high-order con- 
trol character or something other 
than a special low-order control char- 
acter, the appropriate series of com- 
mands is sent to the printer. If the 
loop counter corresponds to charac- 
ter 127, a space is skipped. If it is a 
special character, as determined by 
the function isspecial( ), the pspe- 
cial( ) function is called. (Special 
characters correspond to things like 
the escape and carriage return.) This 
function basically does a brute force 
translation from the character num- 
ber to the commands necessary to 
print a graphic version of the 
character. 


External Functions 

fx80char uses several external rou- 
tines that are not members of the 
standard library. With a few excep- 
tions, these are used to control the 
video properties of the terminal upon 
which the program is running. 

The video control functions are 
from my C function library. Most pro- 
grammers have a similar library con- 
taining routines to access functions 
available on their particular termi- 
nals. The functions revon( ) and re- 
voff( ) are used to turn on and off the 
reverse video mode of the terminal. 
The gotoxy(column, line) function is 
used to position the cursor at an arbi- 
trary location on the screen. clrline- 
(line) clears the entire line that is 
specified as the function’s argument. 
The function clreos(column, line) 
clears the screen, from the requested 
coordinates to the end of the screen, 
and leaves the cursor at the specified 
coordinates. Similarly, clrscrn( ) 
clears the entire screen and leaves the 
cursor at the home position. 

My video routines assume that the 
home position has coordinates of (0, 
0). Column numbers increase to the 
right and line numbers increase as 
the cursor moves down the screen. 
The program assumes it is running on 
a terminal with 24 lines of 80 col- 
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Why Professionals Choose Aztec C 


AZTEC C compilers generate fast, compact 
code. AZTEC C is a sophisticated development 
system with assemblers, debuggers, linkers, 
editors, utilities and extensive run time libraries. 
AZTEC C is documented in detail. AZTEC C is 
the most accurate and portable implementation 
of C for microcomputers. AZTEC C supports 
specialized professional needs such as cross 
development and ROM code development. 
MANX provides qualified technical support. 


AZTEC C86/PRO 

— for the IBM AT and PC/XT 

AZTEC C86/PRO provides the power, portabili- 
ty, and professional features you need to 
develop sophisticated software for PC DOS, MS 
DOS AND CP/M-86 based microsystems. The 
system also supports the generation of ROM 
based software for 8088/8086, 80186, and 80286 
processors. Options exist to cross develop ROM 
code for 65xx, 8080, 8085, and Z80 processors. 
Cross development systems are also available 
that target most micro computers. Call for infor- 
mation on AZTEC C86/PRO support for XENIX 
and TOPVIEW. 


POWERFUL — AZTEC C86/PRO 3.2 outper- 
forms Lattice 2.1 on the DHRYSTONE 
benchmark 2 to 1 for speed (17.8 secs vs 37.1) 
while using 65% less memory (5.8k vs 14k). The 
AZTEC C86/PRO system also compiles in 10% 
to 60% less time and supports fast, high volume 
1/0. 


PORTABLE — MANX Software Systems pro- 
vides real portability with a family of compatible 
AZTEC C software development systems for PC 
DOS, MS DOS, CP/M-86, Macintosh, CP/M-80, 
APPLE // +, //e, and //c (NIBBLE - 4 apple rating), 
TRSDOS (80-MIGRO - 5 star rating), and Commo- 
dore C64 (the C64 system is only available as a 
cross compiler - call for details). AZTEC 
C86/PRO is compatible with UNIX and XENIX. 


PROFESSIONAL — For professional features 
AZTEC C86/PRO is unparalleled. 


Full C Compiler (8088/8086 - 80186 - 80286) 

Macro Assembler for 8088/8086/80186/80286 
Linkage Editor with ROM support and overlays 

Run Time Libraries - object libraries + source 

DOS 1.x; DOS 2.x; DOS 3.x; screen I/O; Graphics; 
UNIX I/O; STRING; simulated float; 8087 support; 
MATH; ROM; CP/M-86 

e Selection of 8088/8086, 80186, or 80286 code genera- 
tion to guarantee best choice for performance and 
compatibility 


MANX @® 


For Technical Support 


TRS 80 RADIO SHACK TRS DOS is a trademark of TANDY. 
APPLE DOS MACINTOSH is a trademark of APPLE. 


e Utility to convert AZTEC object code or libraries to 
Microsoft format. (Assembly + conversion takes 
less than half the time as Microsoft’s MASM to pro- 
duce MS object) 

e Large memory models and sophisticated memory 
management 

e Support products for graphics, DB, Screen, & ... 

e ROMable code + ROM support + separate code and 
data + INTEL Hex Converter 

e Symbolic Debugger & Other Utilities 

e Full Screen Editor (like Vi) 

e CROSS Compilers are available to APPLE //, Macin- 
tosh, CP/M-80, TRSDOS, COMMODORE C64, and 
ROM based 65xx, and 8080/8085/Z80 

e Detailed Documentation 


WETEC GOCIPRO POT seo is omy so os Cohen on $500 
(configured for IBM PC/XT - options for 80186/80286) 


AZTEC C86/BAS includes C compiler (small model only), 
8086 MACRO assembler, overlay linker, UNIX, MATH, 
SCREEN, and GRAPHICS libraries, debugger, and 
editor. 


AZ PC COORG bal BE Cae so oae si ee $199 
AZTEC GCSBIBAS.(GCPAM-G6) 3 ee ek $199 
AZTEC C86/BAS (DOS + CP/M-86)............... $299 
UPGRADE to AZTEC C86/PRO .:................ $310 
C-TREE Database with source .................. $399 
G- TREE Database (obiect nici. osu. Bain wet $149 


CROSS COMPILERS 
Cross Compilers for ROM, MS DOS, PC DOS, or CP/M-86 
applications. 


VA = Oa BIOS 8 ie 6 co eG oa waa $5000 
PDP-11 +> BOG6/BOxxX CrOSS ......... 0c. tbe eee $2000 


Cross Compilers with PC DOS or CP/M-86 hosts are $750 
for the first target and $500 for each additional target. 
Targets: 65xx; CP/M-80; C64; 8080/8085/Z80; Macintosh; 
TRSDOS; 8086/8088/80186/80286; APPLE //. 


AZTEC C68K 
— for the Macintosh 

For power, portability, and professional features 
AZTEC C68K-c is the finest C software development 
system available for the Macintosh. 

The AZTEC C68K-c system includes a 68000 macro 
assembler, a linkage editor, a source editor, a mouse 
based editor, a SHELL development environment, a 
library of UNIX I/O and utility routines, full access and 
support of the Macintosh TOOLBOX routines, debug- 
ging aides, utiliti¢s, make, diff, grep, TTY simulator with 
upload & download (source supplied), a RAM disk (for 
512K Mac), a resource maker, and a no royalty license 
agreement. Programming examples are included. (Over 
600 pages of documentation). 

AZTEC C68K-c requires a 128K Macintosh, 
and two disk drives (frugal developers can make 
do with one drive). AZTEC C68K supports the 
512K Macintosh and hard disks. 


AZTEC C68K-c (commercial system) ............. $500 
AZTEC C68K-p (personal system)..... SS Sane Ao Se $199 
AZTEC C68K-p to AZTEC C68K-c upgrade......... $310 





Aztec The Most Powerful C 


for the IBM AT e MACINTOSH e MS DOS « CP/M-80 ¢ ROM APPLICATIONS 
IBM PC/XT © APPLE // ¢ CP/M-86 « TRSDOS ¢ CROSS DEVELOPMENT 


MatC-ime database: o>. ais Sei ree a ees $149 
Mac C-tree database with source................ $399 
Lisa Kit (Pascal to AZTEC C68k object converter) ..$ 99 


AZTEC C65 


— for the APPLE // 
‘“..The AZTEC C-system is one of the finest software 
packages | have seen...’’ NIBBLE review, July 1984. 
The only commercial C development system available 
that runs native on the APPLE IIl+, llc, and lle, the 
AZTEC C65 development system includes a full floating 
point C compiler compatible with UNIX C and other 
MANX AZTEC C compilers, a 6502 relocating assem- 
bler, a linkage editor, a library utility, a SHELL develop- 
ment environment, a full screen editor, UNIX I/O and 
utility subroutines, simple graphics, and screen func- 
tions. 


AZTEC C65 (Apple DOS 33)... 6s a re $199 
AZTEC C65/PRO (Apple DOS + ProDos).......... $350 
(call for availability) 


AZTEC C II/PRO 


— for CP/M-80 

The first member of the AZTEC C family was the 
CP/M-80 AZTEC C compiler. It is ‘‘the standard” com- 
piler for development on CP/M-80. The system includes 
the AZTEC C II C compiler, an 8080 assembler, a linkage 
editor, an object librarian, a full library of UNIX I/O and 
utility routines, CP/M-80 run time routines, the SMALL 
library (creates modules less than 3K in size), the fast 
linker for reduced development times, the ROM library, 
RMAC and M80 support, library source, support for 
DRI's SID/ZSID symbolic debugger, and more. 


AFTEG CAP RG) Sah A ARE ee a eS $349 

AZTEC CHIGASS Os Soe See Ss $199 

C-TREE Database with Source .................. $399 

C-TREE Database in AZTEC objectform.......... $149 
AZTEC C80 


— for TRSDOS (Radio Shack Model III & 4) 


“I’ve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 80-Micro, Decem- 
ber, 1984, John B. Harrell Ill 


This sytem has most of the features of AZTEC C II for 
CP/M. It is perhaps the best software development 
system for the Radio Shack Model III and IV. 


AZTEC C80 model 3 (no floating point) ........... $149 
AZTEG.COD mérera GD) 625 e ees ee: $199 
AZTEC C80/PRO (full for model 3and4)........... $299 


To order or for information call: 


800-221-0440 


(201) 530-7997 (NJ and outside U.S.A.). Or write: MANX 
SOFTWARE SYSTEMS, P.O. Box 55, Shrewsbury, N.J. 
07701. 


SHIPPING INFORMATION - Standard U.S. 
shipment is UPS ground (no fee). In the U.S. 
one day shipment is $20, two days is $10. 
Canadian shipment is $10. Two days ship- 
ment outside the U.S. is by courier and is 
freight collect. 


(Bug Busters) call: 201-530-6557 
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umns each. 

The program also uses some func- 
tions from the Eco-C standard li- 
brary that are not available in the 
Unix C library. The —_bdos( ) func- 
tion, which provides direct access to 
the CP/M BDOS, is used for raw in- 
put from the keyboard and output to 
the printer. Similar functions are 
available in most CP/M-based ver- 
sions of C. The setmem( ) function 
quickly initializes a block of memory 
to a specified value. 

One additional item is worth noting 
here. The version of fopen( ) used in 
the listings does not use standard pa- 
rameters. Unix C terminates lines 
with a single newline character, but 
CP/M uses the carriage return-line 
feed (CR/LF) pair of characters. 
Most CP/M-based implementations 
of C provide an automatic translation 
of CR/LF to LF when reading text 
from a disk. Conversely, single LF 
characters are translated to the CR/ 
LF sequence when writing a text file. 
In Eco-C, the mode argument is de- 
clared to be “binary” by appending 


the character “b” to the standard 
mode (see functions readfl( ) and wri- 
tefile( ) in Listing Three). This con- 
vention is used when no special han- 
dling of CR/LF sequences is desired. 


Conclusions 

If you are looking for things to im- 
prove, a couple of places in the pro- 
gram are ripe for diddling. First, the 
definition of struct chrary is rather 
wasteful. Declaring the attrib and 
ary fields as char could save about 
half the space now required. Another 
area that could be improved is the 
character-packing function, pack- 
it( ), in the file EDCHAR.C (Listing 
Four). As currently implemented, the 
program will not create characters 
that can be proportionally printed. 
This is due to the way packit( ) as- 
signs the attribute byte. 

It would also be simple to make the 
program a little more forgiving of 
user errors. You could have the pro- 
gram prompt users if they try to Quit 
before Writing their changes to disk. 
Another good idea might be to auto- 


fx 80char (Text begins on page 28) 


Listing One 


/* 


matically Initialize the character 
buffer when it is allocated. 

The program as it appears in the 
listings does not use any printf( )s. 
This made the program about 1.5K 
smaller at the expense of a couple of 
clumsy statement sequences. If you 
make changes that include calls to 
printf( ), you also might want to 
clean up some of those statements. 

This program has made creating 
and printing alternate characters for 
the FX-80 much easier. You can 
change characters and immediately 
see the results, which is much faster 
and less frustrating than writing a 
program to send a fixed series of 
commands to the printer. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 194. 


sel £x80.h — global header file for fx80 character font editor 


ef 


#ifndef VOID 
#define VOID 
#endif 


#define REVISION 
#define TITLE 
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#define STATUSLINE 
#define MENULINE 

#define PROMPTLINE 
#define NAMELENGTH 


#define WIDTH 
#define HEIGHT 
#define NUMCHARS 


#define BOXX 
#define BOXY 
#define YOFF 


#define BELL 
#define ESC 

#define CTRLE 
#define CTRLX 
#define CTRLS 
#define CTRLD 
#define CTIRLF 
#define CTRIO 


int 

"7 April 1984" 

"Character Font Editor -- FX-80 Vers. 1.0" 

0 /* status line line number */ 

4 /* line at which menus start */ 
20 /*,line for prompts */ 

16 /* max length of file name */ 

sm | /* width of character cell */ 

9 /* height of character cell */ 
256 /* number of possible characters */ 
(unsigned) 30 /* left edge of character box */ 


(unsigned) 5 
(BOXY + HEIGHT + 1) 


= 
ya | 
5 
24 
LS 
§ 
6 
17 


/* top of character box */ 


(Continued on page 36) 
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Another in a series of 
productivity notes on MS-DOS™ 
software from UniPress. 


Subject: Multi-window fuil 
screen editor. 


Multiple windows allow several files 
(or portions of the same file) to be 
edited simultaneously. Program- 
mable through macros and the built- 
in compiled MLISP™ extension 
language. 


Subject: Compiler for MS-DOS. 


Lattice C Compiler is regarded as 
the finest compiler for MS-DOS and 
is running on thousands of 8086 
systems. 


Subject: Powerful Keyed File 
Access for MS-DOS. 


PHACT ISAM is a keyed B + tree 
file manager providing easy access 
to and manipulation of records in 

a database. 






Trademarks of Lattice, Lattice, Inc UniPress EMACS and MLISP. UniPress 
Software, Inc, MS-DOS, Microsoft; UNIX, AT&T Be es. Ca ols 
Carousel MicroTools, Inc; PHACT. PHACT Associates. 8086, Intel. TI-PC. Texas 


Features: 


@ Famed Gosling Version. 

@ Extensible through the built-in 
MLISP programming language and 
macros. 

@ Dozens of source code MLISP 
functions; including C, Pascal and 
MLISP syntax cheeking. 

W@ EMACS runs onTi-PC™ IBM-PC AT™ 
DEC Rainbow™ or any other MS-DOS 
machine. Requires at least 384k. 

@ Run Lattice® C or PsMake™ in 
the background and EMACS will 
point to any errors for ease of de- 
bugging. PsMake is a UNIX™-style 
“make” utility to automate the proc- 
ess of building complex programs. 
@ Optional Carousel Tools: UNIX- 
like facilities including cat, cp, Cd, 
logout, /s, mv, pwd, rm, set, sh 

and more. 


Features: 


@ Runs on the [BM-PC™ under 
MS-DOS 1.0, 2.0 or 3.0 

@ Produces highly optimized code. 
@ Small, medium, compact and 
large address models available. 

@ Standard C library. 

@ PLINK— optional full function 
linkage editor including overlay 

and support. 


Features: 


@ Supports fixed and variable length 
records (1-9999 bytes). 
@ Up to 9 alternate indices are sup- 


ported. 


@ Record locking allows each record 
in the database to allow multiple 
simultaneous updates. 

@ Records can be accessed on full 
or partial key. 

@ Includes full Lattice linkable library 
and high-level functions. 


Price: 

EMACS $475 
One month trial 75 
Available for UNIX and VMS. 

PsMake 179 
Carousel Tools 149 
Full System 1,299 


Includes EMACS (object), 
PsMake, Lattice C, PHACT™ ISAM and 
Carousel Tools. 


Price: 
Lattice C Compiler $425 
PLINK 425 
Price: 
PHACT ISAM $250 


Source Code available, call for terms. 


For more information on these and 
other UNIX software products, call or 
write: UniPress Software, Inc., 2025 
Lincoln Hwy., Edison, NJ 08877. 
Telephone: (201) 985-8000. Order 
Desk: (800) 222-0550 (Outside NJ). 
Telex: 709418. Japanese Distributor: 
Softec 0480 (85) 6565. European Dis- 
tributor: Modulator SA (031) 59 22 22. 


OEM terms available. 
Mastercard/Visa accepted. 


TEXT EDITING 


UNIPRESS 
EMACS: 





eo ee 


COMPILER 


FOR THE 8086" FAMILY 


LATTICE C 
COMPILER 


ISAM FILE SYSTEM 


PHACT 


UniPressSoftuare 


Your Leading Source for UNIX Software. 


Instruments, IBM-PC/AT. International Business Machines. DEC Rainbow/V"4S 
Digital Equipment Corp 
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fx 8Ochar (Listing Continued, text begins on page 28) 
Listing One 


struct chrary 


unsigned int chrnum; 
unsigned int attrib; 
unsigned int ary [WIDTH] ; 
}; 
#define ELSIZE (sizeof (struct chrary) ) 
#define ARRAYSIZE (NUMCHARS*ELSIZE) 
#ifdef MAIN /* being included in main program file */ 


Struct chrary *chrs; /* pointer to global character array */ 
#else /* being included in subsidiary function file */ 
extern struct chrary *chrs; 


#endif End Listing One 


Listing Two 
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/* 

ihe fx80char.c —- character font editor for Epson FX80 printers. 

*k 

bg This program can be used to create and alter character fonts 

** for downloading to Epson FxX80 and FX100 printers. 

*&* 

*% David D. Clark 

*k 7 April 1984 

*/ 

#include <stdio.h> 

#define MAIN /* notify the fx80.h header that this is 
the main program file */ 

#include <£x80.h> 


main(arge, argv) 
int argc; 
char *argvl]; 


/* allocate character buffer area */ 
if ((chrs = (struct chrary *) calloc(NUMCHARS, ELSIZE)) == NULL) 
{ 
fputs ("No room to allocate edit buffer.\n", stderr); 
exit (1); 
} 


/* try to read in an initial font file if requested */ 
if (argc > 1) 
{ 


readfl(argv[1], 0, NUMCHARS); 
} 


Mainmenu () ; 
clrscrn(); 
exit (0) ; 


(Continued on page 38) 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO.-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
NS So PE OSs Se ec aed Shee 8 $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPROMS, EEPROMS and MPUs (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 
load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus KS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


_7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 


7956-SA Stand-Alone Gang Programmer ai 


GDX Driver Software 

481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 


CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining vubject file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, TI, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
PEO ss os es ee a $250 


Ask about UNIX. 


Circle no. 10 on reader service card. 


Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 


68000 CROSS-ASSEMBLER — With 
exhaustive field testing completed, our 
68000 assembler is available for imme- 
diate shipment. XMAC68K supports 
Motorola standard assembly language for 
the 68000 and 68010. Macros, cross- 
reference, structured assembly statements, 
instruction optimization and more. Linker 
and librarian included. Comprehensive, 
well-written manual. 


To find out more, call us toll-free. 


1-800-448-8500 
(in the U.S. Except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research **Trademark of Microsoft 


AVOCET 
SYSTEMS INC. 


Sales and Development: 

10 Summer Street 

P.O. Box 490, Dept. 485-DDJ 

Rockport, Maine 04856 

(207) 236-9055 Telex: 467210 AVOCET CI 


Corporate Offices: 
804 South State Street 
Dover, Delaware 19901 
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Listing Two 


/* 


ek 


(Listing Continued, text begins on page 28) 


Mainmenu -—- outer most command level. 


** command p ocessing loop. 


a 


char 


char 


int 
VOID 


int 


38 


" -~- Activate/deactivate RAM character set.\n", 
" —- Edit the currently selected character.\n", 
" —- Initialize the edit character array.\n", 
" — Load printer RAM with ROM character set.\n", 
" -——- Overlay new characters in printer.\n", 
" -- Print the character set.\n", 
" -—- Read character file.\n", 
" ——- Write character file.\n", 


This is the actual 


/* menu for outer--most command level */ 


" — Quit.\n" 
}; 
*cmdl = /* acceptable user responses to this level */ 
{ 

"AEILOPRWQ " 

; 
nemdl = 9; /* number of acceptable commands */ 
mainmenu () 
cmd; /* command character */ 


while (TRUE) /* loop forever */ 

{ 

Clrscrn(); 

shortstat (); 

cmd = domenu(mnul, cmdl, ncmdl) ; 
Switch (cmd) 

{ 


case 'A!': 
activate (); 
break; 


case 'E'; 
edchar () ; 
break; 


case 'I': 
inichars(); 
break; 


case 'L': 
loadram() ; 
break; 


case 'O': 
overlay (); 
break ; 


case 'P'; 
printall(); 
break; 


case 'R'; 
readfile(); 
break; 


case 'W'; 


writefile(); 
break; 
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case 'Q': 
return; 


/* 


be 
RY. 
/* 


zk 


*f 


The following functions are utilities used throughout the program. 


domenu -- print out specified menu and get an acceptable response. 


int domenu(mnu, cmds, ncimds) 
char *mnul], 


*cmds ; 
int ncmds ; 
{ 
int ed 
unsigned i; 
fputs("\n\n\n", stdout); 
for (i = 0; i < nemds; i++) 
{ | 
fputs("\t\t", stdout) ; 
revon (); 
putc(cmds[iJ], stdout); 
revoff(); 
fputs(mnulfi], stdout); 
} 
do 
{ a 
c = (islower (c = mygetc()) ? toupper(c) : c); 
if (index(cmds, c) == NULL) 
{ 
c = NULL; 
putc (BELL, stdout); 
} 
} while (c == NULL); 
return (c); 
} 
/* | 
salad selchar —- select a character by number. 
*/ 
unsigned selchar () 
{ 


char charstr [6]; 


gotoxy (0, PROMPTLINE) ; 
fputs ("character number? ", stdout); 
if (fgets(charstr, 5, stdin) == NULL) 
return (32); /* have to return something */ 
return ((unsigned) atoi(charstr)); 


} 
/* 
say pputc -- put a character to the printer. 
*/ 
VOID pputc (c) 
int Cc; 
{ ie 
_bdos (5, c); /* send char directly to printer */ 
} 


(Continued on next page) 
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fx 80c har (Listing Continued, text begins on page 28) 
Listing Two 


/* 
wk mygetc -- get raw keyboard input. 
*/ 


int mygetc () 
int Cc; 


while (!(c = _bdos(6, Ox00ff))} 
: /* wait for a character */ 
return (c); 


/* 
*e pause -- wait for the user to type a character. 
*/ 


VOID pause () 
fputs ("Type any character to continue. ", stdout); 


mygetc (); 
putc('\n', stdout); 


/* 
** cantopen -- print error message when unable to open "file". 
*/ 


VOID cantopen (file) 
char *file; 


{ 
fputs ("Can't open ", stderr); 
fputs (file, stderr); 
putc('\n', stderr); 
pause (); 

} 
/* 
ae filerr -- print error message after file i/o error. 
*/ 
VOID filerr () 
{ 

fputs("\nFile i/o error\n", stderr); 

pause (); 
} 
/* 
ad shortstat -- print short status line. 
*/ 
VOID shortstat () 
{ 

Clrline (STATUSLINE) ; 

fputs("\t\t", stdout); 

revon () ; 


fputs(TITLE, stdout); 
revoff(); 


(Continued on page 42) 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 


DIGITAL RESEARCH COMPUTERS 
(214) 225-2309 


64K $100 S 
DISK DRIVE SPECIAL! $45990 as 
51/4," Double Sided-Double Density 


NEW! 
LOW POWER! 
Brand New, Unused. Mfg. in Japan by Usa adecactt 
Canon. 2/3 Height - Direct Drive! 
Industry Standard Pin Out. 6MS 


BLANK PC BOARD 
ACCeSS. 





























TATIC RAM 




















WITH DOCUMENTATION 


$49.95 FEATURES: PRICE CUT! 





SUPPORT ICs + CAPS Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$17.50 * Fully supports IEEE 696 24 BIT Extended 
rerghsainle g 
FUL * 64 raws only approximately 500 MA. 
ULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
































S 4 G 9 5 9 $85 $14.50 TMM 20166 as tast as 100 NS. FOR YOUR HIGH 
, - FULLY SUPPORTS THE . Supports PHANTOM (BOTH 
. LOWER 32K 
ea OR NEW IEEE 696 S100 AND ENTIRE BOARD). 
STANDARD * pelts Ht ma Me000 HA in any of top 48K. 
* Any of the top 0 ND ABOVE) ma 
(AS PROPOSED) be paca to aah windows to slirniate 
. . any possible conflicts with your system itor, 
Sold on a First Come Basis FOR 56K KIT $145 Gis), Controller, etc. Nae es 








Add ‘2 Each U.P.S. ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED ADD $50 EPROM may co-exist on the same board. 
* BOARD may be partially populated as 56K. 


$1 29°°. KIT} 


NEW! 
LOW POWER! 
RAM OR EPROM! 


BLANK PC BOARD 





256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL THIS BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 
FEATURES: 


PRICE CUT! * awl board. using + 5V 64K 


* Uses new Intel 8203-1 LS] Memory 
Controller. 

* Requires only 4 Dip Switch Selectable 
1/O Ports. 

* Runs on 8080 or Z80 S100 machines. 

* Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 
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FEATURES: 
= Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 



























* Provisions for Battery back-up. WITH * Full 
y supports Extended Addressing. 
“ap: dean plat whe to your DOCUMENTATION * 64K draws only approximately 500 MA. 
: supplied. * 200 NS RAMs are standard. (TOSHIBA makes 


$52 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


PPORT ICs + CAP SPEED APPLICATIONS.) 
Suro —_ * Board is configured as 3-16K blocks and 8-2K 


* The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 





































STANK PCE * Cpe a times se much for smiar ee See 
a exibility. 
laa a ae: boards. FULL ree SET * 2716 EPROMs may be installed anywhere on 
PROGRAM ON DISKETTE) $ 00 : * Top 16K may be disabled in 2K blocks to avoid 
$6995 56K Kit $139 any 1/O conflicts. 
; * One Board supports both RAM and EPROM. 
(8203-1 INTEL $29.95) 64K Kit $169 * RAM supports 2MHZ operation at no extra 








#LS-100 (FULL 256K KIT) 


THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 


| eee sanits | * Boerd may ‘—j partially populated in 16K 
32K S100 EPROM/STATIC RAM 
















es Oe cannes 













BLANK 
PC BOARD 
WITH DATA 

$39.95 


SERVICES. 


FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 





EPROM Il 
FULL 










EPROM KIT 







$69.95 SUPPORT 































capabilities. ic’s 
* RS232 at 16 BAUD Rates from 75 PLUS CAPS 
to 19,200. ni matali ae $16 






S100 EPROM Card and added FULL 
SOCKET SET 
$15 


* 24 x 80 standard format (60 Hz). 

* Optional formats from 24 x 80 
(50 Hz) to 64 lines x 96 characters 
(60 Hz). ; 

* Higher density formats require up to ; 
3 additional 2K x 8 6116 RAMS. 

* Uses N.S. INS 8250 BAUD Rate Gen.; 
and USART combo IC. 

* 3 Terminal Emulation Modes which 


We took our very popular 32K 
additional logic to create a more versatile EPROM/RAM Board. 










FEATURES: * This one board can be used in any one of four ways: 

A. As a 32K 2716 EPROM Board 

B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 

D. As a 32K Static RAM Board 

Uses New 2K x 8 (TMM2016 or HM6116, RAM’s 














are Dip Switch selectable. These ® os. 

include the LSI-ADM3A, the Heath BLANK PCB WITH 2716 eva oS Se aes aed. (As Proposed) 
Commons ot Split Video. CHAR. ROM, 2732 MON. ROM eS < 200 NS (FAST!) RAM'S are standard on the RAM Kit 
Any polarity of video or sync. $49 95 [s) apa a lc as and North Star Bank Select 


inverse Video Capability. 
Small Size: 6.5 x 9 inches. 
Upper & lower case with descenders. 


On Board wait State Generator 

Every 2K Block may be disabled 

Addressed as two separate 16K Blocks on any 64K Boundary 
Perfect for MP/M* Systems 

RAM Kit is very low power (300 MA typical) 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $40 


TERMS: Add $3.90 postage. We pay balance. Orders under $15 add 75¢ 
handling. No. C.O.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% Tax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50. add 85¢ for for insurance. 


SOURCE DISKETTE - ADD $10 
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Requires Par. ASCII keyboard. 
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Digital Research Computers 


P.O. BOX 461565 - GARLAND, TEXAS 75046 - (214) 225-2309 
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*TM OF DIGITAL RESEARCH INC. (CALIF.) 
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Listing Two 


/*® 
*k 


ud A 


VOID 
int 


char 


Listing Three 
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/* 
xe 
*/ 


#include 
#include 


/* 


kk 
*/ 
static 


VOID 
{ 


ramact = FALSE; 


(Listing Continued, text begins on page 28) 


longstat -- print a long status line. 


longstat (charnum) 
charnum; 


curchar [6]; /* ASCII representation of charnum */ 


Clrline (STATUSLINE) ; 
revon(); 

fputs (TITLE, stdout); 
gotoxy (42, STATUSLINE) ; 
fputs("Char. No. ", stdout); 
itoa (curchar, charnum); 
fputs(curchar, stdout); 


gotoxy (58, STATUSLINE) ; 
fputs("Char = ", stdout); 
revoff(); 


if (isprint (charnum & 0x7f)) 
if (charnum > 127) 
{ 


revon() ; 
putc(charnum, stdout) ; 
revof£(); 
} 
else 
putc(charnum, stdout); 
else | 
{ 
revon(); 
fputs ("Can't show", stdout); 
revof£(); 


actions.c -— action routines for character editor 


<stdio.h> 
<£x80 .h> 


activate — activate the RAM character set. 


activate () 


gotoxy (0, PROMPTLINE) ; 
if (!ramact) 
{ j 


/* assume ROM set active at start of program */ 


End Listing Two 
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pputc (ESC) ; 

pputc('$'); 

pputc (1); 

pputc (0) ; 

ramact = TRUE; 

fputs ("RAM character set active.\n", stdout); 


} 
else 
{ 
pputc (ESC) ; 
pputc ('$'); 
pputc (0) ; 
pputc (0) ; 
ramact = FALSE; 
fputs ("ROM character set active.\n", stdout); 
} 
pause (); 
} 
/* 
“* inichars -—- initialize the global character array. 
*/ 
VOID inichars () 
{ 
unsigned 1; 
struct chrary *ptr; 
gotoxy (0, PROMPTLINE) ; 
fputs ("Initializing character array...\n", stdout) ; 
setmem(chrs, ARRAYSIZE, 0); 
for (i = 0, ptr = chrs; i < NUMCHARS; i++, ptr++) 
ptr->chrnum = i; 
pause () ; 
} 
/* 
ve loadram -- load ROM character set into RAM. 
*/ 
VoID loadram () 
{ 
gotoxy (0, PROMPTLINE) ; 
pputc (ESC) ; 
pputc(':'); 
pputc (0); 
pputc (0); 
pputc (0) ; 
fputs ("Printer RAM loaded fram ROM.\n", stdout); 
pause () 
} 
/* menu and responses for the overlay and read commands */ 
char *mnu2{] = 
{ 
" —- All characters.\n", 
" — Range of characters.\n", 
" —~ Single character. \n" 
}; 
char *cmd2 = 
"ARS" 


bs 


(Continued on next page) 
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fx 80Ochar (Listing Continued, text begins on page 28) 
Listing Three 


aa 


int ncemd2 = 3; 


/* 
= overlay -- overlay the characters in the printer RAM with 
** the characters in chrs. 

*/ 

VOID overlay () 

{ 

int cmd; 

unsigned i, rlo, rhi; 


struct chrary *myptr; 


clrscrn(); 

shortstat (); 

cmd = domenu(mnu2, cmd2, ncmd2); 

gotoxy (0, PROMPTLINE) ; 

Switch (cmd) 

{ 

case 'A!': 
fputs("Overlaying entire character set...\n", stdout); 
for (i = 0, myptr = chrs; i < NUMCHARS; i++, myptr++) 
defchar (myptr); 

break; 


case 'R!': 
Clreos(0, (PROMPTLINE - 1)); 
fputs("For the low end of the range,\n", stdout); 
rlo = selchar (); 
Clreos(0, (PROMPTLINE - 1)); 
fputs ("For the high end of the range, \n", stdout); 
rhi = selchar (); 
define: if (rlo >= 0 && rhi < NUMCHARS && rlo <= rhi) 
{ 


myptr = chrs; 

/* skip unwanted characters */ 

while (myptr-—>chrnum != rlo) 

r++ 
for (i = rlo; i <= rhi; i++, myptr++) 
defchar (myptr) ; 

} 
else 

fputs ("Illegal character range.\n", stderr); 
break; 


case 'S': 
rlo = rhi = selchar (); 
goto define; 
} 


pause (); 


/* 
ek defchar —- define a character to the printer. 
*/ 


VOID defchar (p) 
struct chrary *p; 
{ 


unsigned 53 
pputc (ESC) ; 


(Continued on page 48) 
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Add EDITING 
to your 
Software 

with 

CSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 
screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 
Time to cover the first 50 copies that you 
distribute. 

Use capabilities like Full cursor control, 
block move, insert, search/replace or 
others. Portability is high for OSes, ter- 
minals, and source code. 

Call for the ‘‘CSE Technical Description’ 


















PROFESSIONAL PROGRAMMER’S BULLETIN: 


Be Productive, Be 


™ 





REE 
Brier aS 
TRAN 20 OEN- BACT 


p ae NAAN TEE 
The Programmer's Editor \\, = 





BRIEF’s power and flexibility provide AVAILABLE FOR PC-DOS, IBM-AT 


dramatic increases in programming 
oroductivity. BRIEF’s ergonomically designed AND COMPATIBLE SYSTEMS 


human interface becomes a natural extension ON LY $195 
of your mind, allowing you to eliminate HERI AVAIL ABLE OR a wn 
tedium and concentrate on creativity. hioplieatie ieniire purchase) 





e WINDOWS ¢ Multiple files, 
and for licensing terms and restrictions. » Full UNDO (N Times) _ Unlimited size CALL TOLL FREE 
: © Compile within ° “Regular 800-821-2492 

Full Refund if Solution BRIEF aeteee search for ‘Technical Description” or to order. 
Ge Semi i Sustems + Keystroke Macros.” Keyboard ‘ : 
first 30 days. ’ y i Sere Hee ee ¢ Language sensitive Solution 

335-D Washington Street user controllable stems* 
Call 800-821-2492 Norwell, MA 02061 ¢ Programmable Macro __ features (such as < U 

617-659-1571 Language Auto-Indent for C) 


335-D Washington St., Norwell, MA 02061 


Pircle ne..7) on eager service care: _. Circle no. 93 on reader service card. 617-659-1571 


BRIEF is atrademark of Unde: Ware, 
Solution Systems 's a trademark of Solution Syste 


PROLOG-86 — 


Become Familiar in One Evening 


Thorough tutorials are designed to help learn the PROLOG 
language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 
able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


@ an EXPERT SYSTEM 


@ a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II “DISPLAY” command) 


Ba GAME (it takes less than 1 page of PROLOG-86) 
PROTOTYPE Ideas and Applications QUICKLY 


1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
“C” or PASCAL. It is a different way of thinking. 


Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 


Programming Experience is not required but a logical mind is. 
PROLOG-86 supports the de facto STANDARD established in 
“Programming in Prolog.” 


CONTEST: win $1,000. Ask about it. Deadline of 4/30/89. 


AVAILABILITY: pROLOG-86 runs on MSDOS, PCDOS, 
IBM AT or CPM-86 machines. We provide most formats. The price 




































DIFF and CMP - for “intelligent” file comparisons. 
XREF — cross references variables by function and line. 
C Flow Chart-— shows what functions call each other. 
C Beautifier — make source more regular and readable. 
GREP - search for sophisticated patterns in text. 
There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 

C Helper is written in portable C and includes both full 
source code and executable files 


for $135 for MS-DOS, IBM AT Solution 

















CPM-80 or CPM-86. Use nak of PROLOG-86 is only $125. ° 
VISA, Master Card or COD. < ystems | <>olution 
Call: 800-821-2492 3350 Washington Street Rall peta 5 net — ystems 
ee ce taxied ikea courts satisfied during ee RE 
phy coat ia first 30 days. Norwell, MA ee er 


617-659-1571 


800-821-2492 617-659-1571 


Circle no. 95 on reader service card. 








Circle no. 94 on reader service card. 





And if you leave an undefined variable or data type, 
the editor detects the mistake and gives you the option 
of on-line “help” to correct it. No other programming 
text editor offers you so much innovation at any price. 


INTRODUCING 
Interface Technologies’ Modula-2 
Software Development System 


The computer press is hailing Modula-2 as “the next 
standard in programming languages.” Modula-2 
combines the strengths of Pascal with the features 
that made C so popular, like independent 
compilation and direct hardware control. o 

But until today, no company offered a 
Modula-2 system that made the development 
of software fast, easy and efficient. Now, | 
though, there’s a new tool at your disposal. : 


The fast, powerful tool 
for programmers 


The breakthrough is here: Interface Technologies’ 
new Modula-2 Software Development System for 
the IBM® PC, XT, AT and compatible 
computers to give programmers the same 
quantum leap in productivity spreadsheets 
and word processors gave to end-users. It 
can reduce monotonous wait time, will 
dramatically increase speed, help stop 
thoughtless mistakes, and free you to become more 
creative in virtually all of your programming efforts. 


How to speed input and 
eliminate 30% of errors 


Thirty percent of programming mistakes are syntax 
errors and simple typos in the program structure. Our 
“syntax-directed” Modula-2 editor does away with 
these time-consuming headaches once and for all. 

; , It speeds input by 
cutting manual typing 
as much as 90%, letting 
b you enter statements 
; rwith a single keystroke. 
alll For example, if you type 

a capital “I” to begin a 
line, the editor completes 
the logical “IF THEN” 
statement automatically, so 
See YOU Can concentrate on what you 
Enter complete statements Want to program, rather than con- 
with one keystroke. centrate on what you're typing. 

The editor locks out errors, finishing statements and 
procedures in perfect accord with the standardized 
rules of Modula-2. It also indents and formats your 
text automatically, making programs easy to read and 
maintain, an important feature on big projects. 












It not only has a faster compiler, it also 
saves time by compiling while you edit. 


How to turn “wait time” 
into “work time” 


The vast majority of 
| programming time is 
| spent waiting, and the 
1 biggest slowdown is most 
| often with compilers. 


[COMPILE | 








Our compiler turns 
wait time to work time 
with a new innovation 
that lets you compile 
in the “background.” 

With background 
compilation, your program is automatically compiled 
into object code line by line as you work, every minute 
you spend writing or editing a Modula-2 program! 

When you’re finished editing, all that’s left for the 
compiler is a quick mopping up job that generates 
optimized native code in a single pass. 





How quick is “quick”? 


Thanks to background compilation and the fact that 
the compiler itself is so fast, Interface Technologies’ 
compiler turns 100 lines of typical Modula-2 text 
into optimized machine code in under five seconds. 

Plus the Interface compiler produces compact code 
with execution speed superior to that produced by any 
other Modula-2 compiler on the market. 


How to do two things at once 


Along with the background compiler and syntax- 
directed editor, which can save you hours every day and 
make you more productive, Interface Technologies’ 
Software Development System gives your monitor 


windows so you can refer to one file while you edit 
another simultaneously, saving you even 
more time. 

Concurrent editing of two 
or more files is especially use- 
ful when doing programming | 
work that’s intended for § 
separate compilation, and § 
Interface Technologies has ® 
the only Modula-2 system 
on the market that provides 
you with this helpful benefit 


for developing software. Work with multiple files 


faster, easier in windows. 


How preprogrammed modules 
speed development 


One of the advantages of Modula-2 is that it lets you 
build large, reliable programs quickly, by linking 
together many smaller “building- block” modules. 

The development system’s toolkit of precompiled 
program modules includes the standard Modula-2 
library, and adds exclusive link-and-run modules for 
direct calls to the operating system, sound, and color 


graphics support. 
Plus you get low- 
cost updates from 
the Interface 
Technologies 
J fast-growing 
, library of new 
programming modules. 









oo ~~ The Modula-2 development system’s toolkit of 
uy a Peadysnade modules turns big programs into smaller projects. 


Increase productivity for $249 


Interface Technologies’ Software Development 
System I is fast, powerful and unlimited. It works so well 
that it’s the same tool Interface Technologies is using to 
write business and consumer applications in Modula-2. 

For $249, you get the syntax-directed editor and 
compiler, linker, module library and tutorial that will 
have even modestly experienced programmers writing 
in Modula-2 in days. And you have full rights to your 
work: there’s no license fee for programs you develop 
with the Interface Technologies system. 





You can use it on any IBM® PC, XT, AT or 
compatible computer with two double-sided, double- 
density floppy drives and 320K RAM diskette. 

You get a thoroughly indexed, comprehensive user's 
manual and free telephone support from Interface 
Technologies. But the most important thing you get is 
the future, and the programming language of the future 
is Modula-Z2, and now it’s easier than ever. 

For more information, or to order the Modula-2 
Software Development System, call 1-800-922-9049 
today. In Texas, call (713) 523- sae 

You can also order OF jg 
request further in- 
formation by 
mail. Just fill § 
out the cou- 
pon below 
and send it — 
ac Nettoday. oo yy 
and receive 3 | 
your system 
soon. 

















Operates on the new 
IBM PC AT, as well as 
the PC, XT, and all other 
IBM-compatible computers. 


ie 

ADDRESS 
DG 2 an A ee 
i PHONE 


| PLEASE CHECK ONE: 
é 1 AMERICAN EXPRESS 
[1CHECK ENCLOSED 
CHARGE ACCOUNT NUMBER 


OODDOOOOOOOOOOOOOOOO 


| EXPIRATION DATE SIGNATURE 
yp PLEASE SEND ME COPIES @ $249 EACH. 


INTERFACE TECHNOLOGIES CORPORATION 
3336 RICHMOND, SUITE 200, HOUSTON, TX 77098 
Texas residents, add 6. 125% Sales Tax. DD/2 


CE TECHNOLOGIES 











OVISA UCMASTERCARD 


Business Machines —_l 





IBM is a registered trademark-of Internationa 







" MODULA-2 SOFTWARE 
| DEVELOPMENT SYSTEM 
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fx 8Ochar (Listing Continued, text begins on page 28) 


Listing Three 
pputc('&'); 
pputc (0) ; 
pputc (p—>chrnum) ; 
pputc (p—>chrnum) ; 
pputc (p->attrib) ; 
for (j = 0; j < WIDTH; j++) 
pputc (p—>ary[j]); 
} 
/* 
ae readfile —- read a file of character definitions. 
*/ 
VOID readfile () 
{ 
char name [NAMELENG TH] ; 
int cmd; 
unsigned rlo, rhi; 
gotoxy (0, PROMPTLINE) ; 
fputs ("Read what character file? ", stdout) ; 
fgets (name, NAMELENGTH, stdin); 
Clrscrn(); 
shortstat (); 
cmd = domenu(mnu2, cmd2, ncmd2); 
gotoxy (0, PROMPTLINE) ; 
Switch (cmd) 
{ 
case 'A': 
readf1 (name, 0, NUMCHARS); 
break; 
case 'R'; 
Clreos(0, (PROMPTLINE — 1)); 
fputs("For the low end of the range,\n", stdout); 
rlo = selchar (); 
Clreos(0, (PROMPTLINE - 1)); 
fputs("For the high end of the range, \n", stdout); 
rhi = selchar (); 
doread: if (rlo >= 0 && rhi < NUMCHARS && rlo <= rhi) 
readfl(name, rlo, rhi); 
else 
fputs ("Illegal character range.\n", stderr); 
break; 
case 'S': 
rlo = rhi = selchar (); 
goto doread; 
} 
} 
/* 
— readfl — do the actual read of a character definition file. 
** Only read characters fran "lo" to "hi" into the global character 
** buffer. 
*/ 
VOID readf1 (name, lo hi) 
char *name; 
unsigned lo, hi; 
{ 
char Cc, *ptr; 
unsigned i; 
FILE *fd; 
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if ((fd = fopen(name, "rb")) == NULL) 
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cantopen (name) ; 
return; 
} 


fputs ("Reading...", stdout); 


/* skip past unwanted characters */ 

for (i = 0, ptr = (char *) chrs; 
(i < (lo*ELSIZE)) && ( c = getc(fd)) != BOF); 
it+, ptr++ 


; /* do nothing */ 


if (lo > 0 && i < (lo*ELSIZE - 1)) 
filerr(); 


/* now read the characters into the array */ 

for ( : 
i = (lo*ELSIZE); /* ptr is already where it should be */ 
(i < (hi*ELSIZE + ELSIZE)) && ((c = getc(fd)) != BOF); 
i++, ptr++ 


*ptr = c} 


if (hi > 0 && i < (hi*ELSIZE + ELSIZE - 1)) 
filerr(); 


£close (fd) ; 
} 
/x 
*% writefile -- write a file of character definitions. 
®/ 
VOID writefile() 
{ 
char c, *ptr; 
char name [NAMELENG TH] ; 
unsigned i} 
struct chrary *myptr; 
FILE *fd; 
gotoxy (0, PROMPTLINE) ; 
fputs ("Write characters to what file? ", stdout); 
fgets (name, NAMELENGTH, stdin); 
putc("\n', stdout); 
if ((fd = fopen(name, "wb")) == NULL) 
{ 
cantopen (name) ; 
return; 
} 
fputs ("Writing...", stdout) ; 
for (i = 0, ptr = (char *) chrs; i < ARRAYSIZE; i++, ptr++) 
{ 
if (putc(*ptr, fd) == BOF) 
{ 
filerr(); 
fclose (fd) ; 
return; 
} 
} 
fclose (fd) ; 
} 
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End Listing Three 
(Listing four begins on next page) 
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fx 80C har (Listing Continued, text begins on page 28) 
Listing Four 


/* 
tis edchar.c -—- character editing functions for the £x80 
** character editor program. 

*/ 

#include <stdio.h> 

#include <£x 80 ..h> 


/* unpacked version of the character being edited */ 


Static unsigned cary [WIDTH] [HEIGHT] ; 

/t 

“* edchar — the main character editing function. 
*/ 

VOID edchar () 

{ 

int C3 

unsigned myx, myy, Charnum; 


gotoxy (0, PROMPTLINE - 1); 
fputs ("Edit", stdout) ; 
charnum = selchar (); 
clrscrn(); 

drwbox () ; 

longstat (charnum) ; 
unpack (charnum) ; 
flashit (charnum) ; 

myx = 1; 

myy = 1; 

boxgotoxy (myx, myy) ; 


do 

{ 
switch (c = (islower(c = mygetc()) ? toupper(c) : c)) 
{ 


case '8's: /* up */ 
case CIRLE: 
if (myy < HEIGHT) 
boxgotoxy (myx, ++myy); 


break; 
case '2'; /* down */ 
case CIRLX: 
if (myy > 1) 
boxgotoxy (myx, --myy); 
break; 
case '4'; /* left */ 
case CTIRLS: 
if (myx > 1) 
boxgotoxy (—-myx, myy); 
break : 
case '6': /*®* right */ 
case CTRLD 


if (myx < WIDTH) 


boxgotoxy (+4myx, myy) ; 
break; 


case '5': /* toggle pixel */ 
case CIRLF: 

if (cary[myx - 1] [myy - 1)) 

{ 


if ((myx - 1)%2) 
(Continued on page 52) 
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OED ene. | ~GO FORTH, UNIX! 
_,. With u4th 





e Design your programs right on the screen, using modern 
techniques based on the popular Jackson Structured Program- 


ming method (JSP)! Are you interested in improving your software produc- 
tivity? Do you have a UNIX system or engineering work 

e DEZIGN is more than just another flowcharting tool. It is an station? Now you can realize the exceptional capability 
integrated tool for designing and documenting programs and of moving your Forth applications to the world of UNIX 


for generating ADA, C, PASCAL, and PL/I source code, as well 


; and XENIX. Experience the productivity enhancement 
as dBASE II and dBASE III command files. 


of an interactive programming environment, and still 


e DEZIGN enables you to create Data and Program Structure COGS HE AE Nero a) a 


Diagrams using the Sequence, Selection (IF-THEN-ELSE), and UBIQUITOUS SYSTEMS announces u4th, the first 
Iteration (DO WHILE) constructs; assign detailed statements Forth completely tailored for UNIX. u4th is a fast direct- 
to the diagrams; and synthesize source code from the control threaded Forth written in portable C, yet capable of 
logic represented on the diagrams and the detailed statements execution speeds comparable to many assembler 
assigned to them. Forths. Great for Al research and delivery. 


Some features are: 


e DEZIGN lists for $200. It runs on the IBM PC, XT, or AT and © Access to standard UNIX system calls 


requires 128K RAM, one disk drive, and an 80-column color 


or monochrome display. ° Ability to incorporate new primitives written in C 
e Object-Oriented Forth included! 
e DEZIGN-PC runs under DOS 2.0, 2.1, and 3.0. e Can pass commands through to UNIX 


+ ee Goere Mone ees Le Binary License: Xenix $395.00 Plexus $895.00. 


e Want to learn more? Please contact us concerning pricing and Call about-othiers: OEMs: Gpeiridt terms. 


availability of JSP reference texts and seminars. UBI Q UITOUS SYSTEMS 


ZEDUCOMP « P.O. BOX 68 « STIRLING, NJ 07980 13333 Bel-Red Road N.E. Bellevue, Wa. 98005 
(201) 755-2262 (206) 641-8030 
9:00-noon Weekdays 
dBASE || and dBASE III are trademarks of Ashton-Tate, Inc. UNIX(TM) AT&T XENIX(TM) MICROSOFT 
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DateStamper™ keeps your CP/M computer up-to-date! 
® avoid erasing the wrong file e keep dated tax records of computer use 
e back-up files by date and time e simplify disk housekeeping chores 














OPERATION: DateStamper extends CP/M 2.2 to automatically record the date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks initialized for datestamping are fully compatible with standard CP/M. 

INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for popular models. Loads automatically at power-on. UTILITIES: ¢ Enhanced 
SuperDirectory * Powerful, all-function DATSWEEP file-management program with date and time tagging ® Disk- 
initializer ¢ Installation and configuration utilities PERFORMANCE: Automatic. Efficient. Invisible. Compatible. 
Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 





When ordering please specify format 







8” SSSD, Kaypro, Osborne Formats ........... $49 Write or call for further information 
For other formats (sorry, no 96 TPI) add $5. 
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California residents add 6% sales tax 7 
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Listing Four 
putc('|l', stdout); 
else 
putc(' ', stdout); 
putc('\b', stdout) ; 
cary(myx - l] [myy - 1] = 0; 
} 
else 
{ 
revon(); 
putc(' ', stdout); 
revoff(); 
putc("\b', stdout) ; 
cary[myx - l] [myy - 1] = 1; 
} 
break; 
case 'Q': /* quit */ 
case CTRIOQ: 
c= Q's 
break; 
default: 
putc (BELL, stdout) ; 
} 
} while (c != 'Q'); 
packit (charnum) ; 
clrscrn(); 
} 
/* 
“* drwbox -- draw the character easel. 
*/ 
VOID drwbox () 
{ 
unsigned ip 33 
gotoxy (BOXX, BOXY); 
putc('+', stdout) ; 
for (i = 0; i < WIDTH; i++) 
putc('-', stdout); 
putc('+', stdout) ; 
for (i = 1; i <= HEIGHT; i++) 
{ 
gotoxy (BOXX, BOXY + i); 
putc('|', stdout) ; 
for (j = 0; j < WIDTH; j++) 
utc(' ', stdout); 
putc('|', stdout); 
} 
gotoxy (BOXX, YOFF) ; 
putc ('+', stdout) ; 
for (i = 0; i < WIDTH; i++) 
putc('-', stdout) ; 
putc('+', stdout) ; 
} 
/* 
ny unpack —— unpack the selected character. 
VOID unpack (cnum) 
ees cnum; 
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unsigned i, jr mypack, loj, hij; 
struct chrary “*myptr; 


for (i = 0; i < WIDTH; i++) 


for (j = 0; } < HEIGHT; j+) 
carylill[j] = 0; 
myptr = chrs; 
for (i = 0; i < cnum; i++) 
Mmyptr++; 


if (myptr->attrib & 128) 
{ 


loj = 1; 
hij = HEIGHT; 
} 
else 
{ 
loj = 0; 
hij = (HEIGHT - 1); 
} 
for (i = 0; i < WIDTH; i++) 
{ 
mypack = myptr->ary lil; 
for “¢}..= lope. J -<n yt 9) 
{ 
caryli][j] = mypack & l; 
mypack >>= 1; 
} 
} 
} 
/* 
ie packit -- pack the selected character. 
* 
VOID packit (cnum) 
unsigned cnum; 
‘unsigned i, j, mypack, loj, hij, wantlo, wanthi, adjacent; 


struct chrary *myptr; 


/* move pointer to appropriate character */ 


myptr = chrs; 
for (i = 0; i < cnum; i++) 
myptr++; 


/* determine if upper or lower 8 pins requested */ 

wantlo = 0; 

for (i = 0; i < WIDTH; i++) 
wantlo I= cary[il] [0]; 


if (wantlo) 
{ 
loj = 0; 
hij = HEIGHT - 1; 
myptr->attrib = ll; 
} 
else 
{ 
loj = 1; 
hij = HEIGHT; 
myptr->attrib = 139; 
} 


/* pack the character */ 
for (i = 0; i < WIDTH; i++) 


{ 
mypack = 0; 
for (j = loj; j < hij; j+») 
{ 
mypack >>= 1; 
if (caryli][j]) 
mypack |= 128; 
} 
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(Continued on next page) 
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End Listing Four 


(Listing five begins on page 56) 


Listing Four 
myptr—>aryli] = mypack; 
} 
/* determine if upper 8 pins requested */ 
wanthi = 0; 
for (i = 0; i < WIDTH; i++) 
wanthi |= caryli][ (HEIGHT - 1)]; 
/* determine if adjacent pins requested */ 
adjacent = 0; 
for (i = 0; i < (WIDTH — 1); i++) 
{ 
if (adjacent = (myptr->aryli] & myptr->aryli + 1])) 
break; 
} 
/* check for definition violation */ 
if (adjacent |! (wanthi && wantlow)) 
{ 
gotoxy (0, PROMPTLINE) ; 
fputs ("This definition is illegal.\n", stderr); 
pause (); 
} 
} 
/* 
sgh flashit —- draw selected character. 
*/ 
VOID flashit (cnum) 
unsigned cnum; 
{ 
unsigned 5 Sy 
for (i = 0; i < WIDTH; i++) 
for (j = 0; j < HEIGHT; j++) 
{ 
boxgotoxy(i + 1, j +1); 
if (caryli][j]) 
{ 
revon (); 
putc(' ', stdout); 
revoff(); 
} 
else if (i%2) 
putc('|', stdout); 
else 
putc(' ', stdout); 
} 
} 
/* 
, as boxgotoxy -- goto x,y position in character editing box. 
*/ 
VOID boxgotoxy (x, y) 
unsigned Xr, Y? 
{ 
gotoxy (x + BOXX, YOFF - y); 
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EXPERT SYSTEMS 


“INSIGHT is essentially the equivalent or better than 
any other tool available for the personal computer.” 


Paul Harmon. author of Expert Sysiems. Artificial Intelligence in Business 


a(tiaemelelan wemlalcen-lem—delae Insight 2 is more than just an 
“expert.” It’s a knowledge base 

yateh laters arate mmexe) Mudtsam-) 9) e)icer-1c(ele 
capabilities. It can call up Pascal 
programs, read and write dBASE I1® 
ral Corse Lave Mi hecme (arent) (oats eat-halelem ode 
Insight not only simplifies access cess can tie in directly to your 

com Coleco) mlatceaent-la(ovemmiar-let-l\74— existing databases. Run-only ver- 
Plate Reyaicl ecucve) (ela (oletm me) at ald@ aco (0) ate) ce Mer-} al ole (=. -1(e) ox-rem-lale, 
operators it’s a perfect procedural distributed. 

acc lialiarem ey-cel.<-\e(-mecom allem oleiice| 
and implement knowledge base 
software. 


Give it Insight, or give it Insight 2. 
Both let you create knowledge base 
systems using any PC-C€ompatible 
text editor. 


Two unique packages from the 
same expert idea. 


Victor® 9000. 


Level Insight ™ ($95) and Insight 2™ ($485) 
Five run on the IBM®PC, DEC® Rainbow, and 


Research, Inc. 


4980 South A-1-A WW Ceylerelbbee(sm sisr- (el elms dl e)alel-meyAcreD| (305) 729-9046 
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SE 
Gerez vos. 
fenetres!”" 


oa 
Introducing | MAT Is, the powerful new 
developmental system from France. 
A complete and meticulously detailed pee 
to make a programmer's work easier, faster, and. 
but of course. . . better. 





[_] Window Management Systems [] Screen Generator L] Expanded 
Basic Commands (] Can be accessed from other languages L] 100% 
Assembler (J Automatic Scrolling in Windows LC] Virtual Page larger 
than screen (up to 65534 rows x 65534 columns) LJ Save or Print 
Pages (] MS-DOS L170 Page Manual (In English Mon Ami!) 

CJ Only $150. 


ORDER BY MAIL—WRITE OR CALL FOR COMPLETE DESCRIPTION 
No license fee. 


Softway, Inc. 


500 Sutter Street * Suite222- D « San Francisco, CA 94102 
Tel: (415) 397-4666 Telex: 880857 


‘Manage your windows! 
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RUN/C:” 
The Affordable C 
Interpreter 


Available NOW for only $149. 95! 


Finally, a painless introduction to 
the C language. With RUN /C: 
The C Interpreter you 
can create and run C language 
programs in an environment as 
easy to use as BASIC. 


RUN /CisC for the rest of us. 
It is a robust implementation of 
standard K&R. RUN //C is for 
both the beginner and profes- 
sional. 


RUN /C includes full floating 
point, 8087 support, structures, 
unions, casts and more than 100 
built-in C functions. 


With RUN /C you get all this 
with a command structure mod- 
eled after BASIC’s using familiar 
terms such as EDIT, RUN, LIST, 
LOAD, SAVE, TRON, SYSTEM, etc. 


Since RUN /C is a true inter- 
preter it means that C programs 
can be written, tested and run 
within a single protected envi- 
ronment. It is a teaching tool and 
a source code debugger. 










Here’s more good news... 


e Great documentation: a 400- 
page, easy-to-read manual 
filled with executable 
programs 

e Array-index and pointer 
bounds checking 

e Variable-trace and dump 
diagnostics PLUS an integral 
program profiler 

e Full buffered and unbuffered 
file 1/O 

e Printer and asynch support 

e Forking to your favorite full 
screen editor with automatic 
return to RUN /C with 
your edited program 

e System Requirements: 

IBM® PC or compatible with 
PC-DOS 2.0 or MS'™-DOS 2.0 or 
greater with ANSLSYS. 


Get things right the first time 
with RUN /C: , 
The C Interpreter.™ 

























For immediate delivery or more 
information, call: 
1-800-847-7078 
(in NYY. 1-212-860-0300) 
or write: Lifeboat Associates™ 


1651 Third Avenue 
New York, NY 10128 
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Listing Five 


/* , : : ! 

** __ ptnout.c —- the function to print out the entire character | 
** set of the FX80 printer. The function printall() will print the 
** characters taking into account special handling required to . 

** print characters stored in the locations of control codes. The 
** only character not printed is that stored in 127, the alternate 
** zero. I can't figure out how to do it. 


*/ 

#include <stdio.h> 

#include <£x80 .h> 

/* 3 

saad printall — print the entire character set. 
*/ ; 


VOID __printall() 

{ | 

unsigned i; 
for (i = 0; i < NUMCHARS; i+) 
{ 


if (1(i864)) /* line feed every 64 characters */ 
pputc ('\n'); 
if (isprint (i & Ox7£)) /* normal Roman or Italic */ 
pputc (1); ‘ er 
else if (i >= 128) /* high order control code */ 
{ yee 
pputc (ESC) ; 
pputc ('6'); 
pputc (i) ;- 
pputc (ESC) ; 
pputc('7'); 
else if (isspecial(i)) /* special low order control code */ 
pspecial (i); e 
else : /* low order control code */ 
{ | 
if (i == 127) 
continue; /* swallow it */ 
pputc (ESC) ; 
pputc('I'); 
pputc('1'); 
pputc (i); 
pputc (ESC) ; 
pputc('I'); 
pputc('0'); 
} 
} : 
pputc('\n'); 
} ppute ('\n'); 
/* 7 | 
ed isspecial — return TRUE if argument is low order control 


** code requiring special handling to print. 
*/ 


int isspecial (i) 
unsigned i; 
{ 


return ((i >= 7 && i <= 15) Il (i >= 17 && i <= 20) II 
i == 24 11 i == 27); 
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/* 


wf pspecial —- print control codes that require special handling. 
“/ Tee oe, . , : 
VOID _pspecial (i) 
unsigned i; 
f. 
pputc (ESC) ; /* all select an international character set */ 
pputc('R'); x 
switch (i) 
{ 3 

case 7: 

7 pputc (7); 
pputc (91) ; 
break; 

case 8: : 
pputc (7) ; 
pputc (93) ; 
break; 

case 9: 
pputc (7) ; 
pputc (92) ; 
break ; 

case 10: 
pputc (7) ; 
pputc (124) ; 
break ;. 

case ll: 
pputc (5) ; 
pputc (36) ; 
break; 

case 12: ) 
pputc (7); 
pputc (35) ; 
break; 

case 13: 
pputc (4); 
pputc (93) ; 
break; 

case 14: _ 

. pputc (4) ; 
pputc (125) ; 
break; 

case 15: - 
pputc (1); 
pputc (92) ; 
break; 

case 17: 
pputc (2); 
pputc (126) ; 
break; 

case 18: 
pputc (4) ; 
pputc (91) ; 
break; 

case 19:. 
‘pputc (4) ; 
pputc (123) ; 
break; . 

case 20: ‘ 
poutc (4); 
pputc (92) ; 
break;: 

case 24: 

 pputc (2) ; 
pputc (92) ; 
break; 

case 27: 

~ pputc (5) ; 
pputc (124) ; 
} : 
pputc (ESC) ; /* Return to USA font */ 
pputc('R'); 
pputc (0) ; 
} 
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computer and an Epson MX-100 

printer with Graftrax Plus to print 
stories of the Coeur d’ Alene Indians 
in their native language; this requires 
phonetic characters. Still spoken flu- 
ently by a handful of elderly Indians 
on the reservation in northern Idaho, 
Coeur d’ Alene belongs to a family of 
languages known for their difficult 
phonetic systems. Linguists who re- 
cord Indian languages of the Ameri- 
can Northwest have designed a char- 
acter set that is visually elegant but 
extremely difficult to reproduce on a 
typewriter. 

Table 1 (page 59) shows the Coeur 
d’ Alene characters. Entering a single 
phonetic character with a customized 
linguistic element may require the 
typist to use as many as six key- 
strokes, often involving keys located 
in awkward positions. With phoneti- 
cally complex languages, the tedium 
and frustration of keyboard entry 
send the probability of errors soaring. 


am using an Apple II Plus micro- 


Coeur d’ Alenes to translate the story 
into English. I use the word processor 
Applewriter II to enter both the Indi- 
an text and the translation into the 
computer, but I do not use the com- 
puter to translate the text. 


What a Linguist Needs 
Automatic printing of bilingual texts 
on the Epson MX series of printers re- 
quires graphics software. Such soft- 
ware is readily available for the Apple 
Macintosh, which prints excellent 
characters on the ImageWriter dot 
matrix printer. Other late model dot 
matrix printers, such as the Epson FX 
series that replaced the MX, permit 
loading of user-defined fonts. This is a 
great convenience for linguists, but if 
your available printer belongs to the 
MX series, that is small comfort. Al- 
though the MX-100 does not permit 
loading of fonts, you can still print 
user-defined fonts by sending graphics 
commands to the printer. 

Linguists have a great interest in 
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To those of us working with Indian 
languages, microcomputers promise 
convenient transcription, rapid pro- 
cessing, and accurate printing. 

I begin on the reservation by re- 
cording the stories on audio cassette 
tape. After transcribing a text, using 
phonetic symbols, I work with the 
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displaying alternate character sets on 
the CRT screen. On the Apple II, this 
is easily accomplished with the ap- 
propriate 80 column card or with a 
patch to the word processor’s charac- 
ter set if the characters are created by 
the software. But when you wish to 
produce a manuscript, the creation of 
alternate character sets on the printer 
becomes an issue. It is important to 
realize that the printer and the screen 
are independent, a fact that is not at 
all transparent to newcomers. 
Linguists who wish to switch from 
one language to another at will, mix- 
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ing codes in lines of text, will discover 
that the limitations of the standard 
keyboard require them to select a set 
of characters to represent the phonet- 
ic symbols for text entry: each key 
must correspond to an ASCII code 
number—the only kind of signal ac- 
ceptable to the printer. 

Only 52 keys are available for al- 
phabetical use on the Apple keyboard 
(ASCII numbers 65 to 90 and 97 to 
122). Moreover, the Apple II Plus 
will send only the first 128, not 
enough to support an additional con- 
current set even if the new set shares 
many symbols with the standard set. 
Because the control codes below AS- 
CII 32 are needed to drive the printer, 
and because standard punctuation 
marks, numerals, and underlining are 
commonly needed in the text, the set 
of characters that can be sacrificed to 
provide alternative characters 1s 
quite small: #, $, %, &, *, +, ye ae 
ee Oe ho Gs oe Or these, 
several (@, [, ], *, {4 }, ~. ) require 
awkward combinations of shift and 
control characters that are difficult 
to remember and to enter, at least 
with Applewriter II Plus. This incon- 
venience defeats our original goal of 
facilitating manuscript preparation. 


How To Get It 

The solution lies not on the keyboard 
but in the software. In the text file, 
the standard character set can repre- 
sent the phonetic set; a printer driver 
written in APPLESOFT BASIC de- 
fines the phonetic characters. Code 
inserted in the text signals character 
set changes. A signal to change sets 
can be entered as one or more nonal- 
phanumeric symbols, and each 
unique signal makes available at least 
52 new shapes. Because the printer 
can create a practically unlimited 
number of shapes, it is possible to ac- 
cess. many alternate character sets 
from a single text. 

A special problem arises if a char- 
acter exceeds the standard 7/72-inch 
height. Because the MX series lacks 
reverse line feeds and expanded char- 
acter matrices, the vertical extension 
must be printed before the remainder 
of the character. This means the up- 
per story of every extended character 
on a line must be printed before ad- 
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vancing the line feed. 

The program described in this arti- 
cle creates vertically extended fonts 
and generates one alternate charac- 
ter set that can be mixed at will with 
English. The program does word 
wrap, avoids breaking words at the 
end of lines, numbers pages, and per- 
mits variable line spacing. Defini- 
tions are entered as data lines (twelve 
data points /character). 

To produce a phonetic symbol, it 
gets one character at a time from the 
text file, replacing the ASCII number 
with a string of graphics commands. 
Each string of code, representing a 
phonetic symbol, is placed in one ele- 
ment of an array of 60, the length of a 
line. Decoding and printing the 
graphics set is slower than printing 
English but still very practical com- 
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pared to performing the same task 
with a modified typewriter. 


Convenient Text Entry 

Entry codes must be easy to remem- 
ber and to type. I use a system that 
assigns a single key to frequently oc- 
curring phonetic features, such as 
stressing and rounding. This avoids 
the necessity of remembering a sepa- 
rate key for each stressed vowel or 
rounded consonant. 

The system requires no unusual 
substitutions (for one who under- 
stands Coeur d’ Alene phonetics); it 
does not resort to otherwise little- 
used capital Zs , Qs, numbers, or spe- 
cial keys. These can all be kept for 
their normal uses or for character set 
change flags. Table 2 (below) lists 
some representative characters from 
a © 2 4 io au. 


x .. o” “ ah 
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vowel can be printed with stress, as in 1 the following: aé 
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the set of Coeur d’ Alene phonetics. 
All entries bear some resemblance 
to the actual phonetic symbols that 
they represent. All are either lower- 
case letters, capitals, or simple dou- 
ble keystrokes called ‘digraphs.’ 
Speakers of Coeur d’ Alene pro- 
nounce several phonemes with a 
catch in the throat, so I appended the 
apostrophe symbol to those pho- 
nemes for all such glottal sounds. 
Likewise, several phonemes are pro- 
duced with a rounding of the lips, so I 
appended the lower-case w for all 
such labial sounds. Because the sym- 
bols are easy to remember and the 
same keyboard pattern serves for 
both languages, text entry is simple. 
Any good word processor permits 
similar entry, but Applewriter II has 
another useful feature: it comes with 
its own programming language, called 
Word Processing Language (WPL), 
which is designed for string manipula- 
tion. When preparing long text files 
for the printer driver, I use a WPL fil- 
ter to convert some digraphs into sin- 
gle characters. It also prefixes lines of 
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English and Coeur d’ Alene with 
change codes. Table 2 shows the two 
transformations required to produce 
phonetic text from my entry code. Al- 
though not strictly necessary, the 
WPL filter does simplify text entry. 


Graphics Fonts on the MX-100 
A few hours of experimentation will 
disclose the difficulty of printing text 
files with Epson graphics characters. 
Taking pity on me, a colleague called 
my attention to the Gutenberg soft- 
ware, which he thought might work. 
Having just stretched the department 
budget to purchase a computer and 
printer, however, we could not go 
back again for an unproven software 
item costing over $300. For those 
with a CP/M card, the Fancy Font 
program would serve the purpose, but 
the cost made this option unavailable 
to us. Not wishing to risk buying soft- 
ware of uncertain utility, I opted for 
writing a printer driver: a program to 
act as a filter to replace ASCII char- 
acters with graphics. 

Creating special fonts requires 
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Figure 1 





some basic arithmetic. On the MX- 
100, English consonants normally oc- 
cupy up to 7/72 inch above the base- 
line and 2/72 inch below (see Figure 
1, below). The remaining 3/72 inch 
in each normal line feed of 12/72 
inch provides the space between lines. 
All vowels extend only 5/72 inch 
above the baseline except i, which ex- 
tends 7/72 inch. Each character is 
printed within the space of five col- 
umns of dots. A trailing sixth column 
provides spacing between letters. 

Standard fonts are mapped in the 
printer, and when the printer slot is 
addressed (normally with PR#1), a 
single ASCII code number prints a 
character. For example, the com- 
mand PRINT CHR$(65) prints A. 
The Apple printer and newer Epson 
printers such as the FX-80 can load 
user-defined fonts and then treat 
them in much the same way as stan- 
dard character sets. With the MX- 
100, however, alternate fonts require 
graphics code from the computer 
each time a character is printed. 

On the MX-100, each column in a 


two row 
descenders 


space between 
Hines; nermel 
12 rows line-feed 


boundary between cheracters 


Standard Lower-Case t and y on the Epson MX-100 
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character’s six-column matrix is sent 
with a code number. Code specifying 
the shape of these columns must be 
prefixed by a graphics command. A 
high-density mode also must be 
| called to generate well-defined char- 
acters; because this mode moves the 
printing head only half a column at a 
time, the graphics command creates 
twelve-column characters. Take as 
an example the command: PRINT 
CHRSO7) +. CHRSWIO) 
CHR$(12) + CHRS§(0). CHR$(27) 
says to treat the following characters 
as commands rather than ASCII sym- 
bols. CHR$(76) calls the high-densi- 
ty graphics mode. CHR$(12) sets 
aside twelve columns of dots. 
CHR$§(0) signifies that less than 256 
columns follow. 

The high-density mode produces 
definition and density equal to that of 
standard fonts printed in emphasized 
mode. In the printer driver (see List- 
ing One, page 66), the twelve data 
points necessary to define the overlap- 
ping columns of a phonetic symbol are 
provided in DATA lines 1050 through 
1170. Each data point represents a 
column seven dots high. Figure 2 
(page 63) illustrates data points for 
the graphics character “schwa.” Al- 
though the Epson MX-100 manual 
describes graphics procedures, it does 
not mention the use of the high-densi- 
ty mode for designing attractive fonts. 

The complete character is con- 
structed by concatenation. As the 
READ G statement in line 1000 finds 
each data point, the statement G$(M) 
+ CHRS$(G) appends it to the string 
of data that represents the twelve 
printed columns. Then the twelve col- 
umns in G$(M) are appended to the 
graphics command GC$ in the state- 
ment G$(M) = GC$ + G$(M). Final- 
ly, the command PRINT GS$(M) will 
print the phonetic symbol. However, 
this command is never given explicit- 
ly, because the value of G$(M) is first 
transferred to yet another array ele- 
ment that represents the top or bot- 
tom sector of a character. 

Although standard characters can 
extend as high as 7 rows above the 
baseline, a graphics column can be 
only 6/72 of an inch high. Likewise, 
the graphics column extends only 1/ 
72 of an inch below the baseline, 
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compared to the 2/72 drop of the 
standard j, g, or y. This is because the 
Apple II Plus can address only seven 
bits; it prints only six dots above and 
one dot below. For many purposes, 
seven rows will suffice, but if one 
needs taller fonts, there is a solution. 


Vertical Extension of Fonts 

Some applications, such as Chinese 
characters, are too complex for a sev- 
en-by-six dot matrix. But for Epson 
Alices, the printer driver offers a 
magic mushroom: smaller line feeds 
can make fonts grow infinitely tall. 
Two normal lines spliced together 


make one tall line, and ten lines 
spliced together make a very tall line. 
Split characters are aligned horizon- 
tally by printing lines in multiple ar- 
rays of corresponding elements and 
are joined vertically by controlling 
line feeds. 

In the Coeur d’ Alene set, diacriti- 
cals signify phonetic features, the 
most frequent is the stress mark on 
vowels, represented in entry code 
with !. If the MX-100 supported re- 
verse line feeds, we could backspace 
with PRINT CHR$(8);, send a one- 
half reverse line feed, print the char- 
acter, and send a half line feed for- 
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ward. Because reverse line feeds are 
unavailable, the stress mark must be 
printed first, followed by a partial 
line feed, and then the vowel. 

Similarly, each character with a 
vertical extension has a top sector 
and a bottom sector. If the stress 
mark on top is T$(1), the vowel on 
the bottom is B$(1), and PLF$ repre- 
sents a partial line feed command, 
then PRINT T$(1):PRINT 
PLF$:PRINT B$(1) will print the full 
phonetic symbol. 

I designed the diacriticals so that a 
partial line feed of 4/72 inch adjusts 
them to vowels of standard height 
(see Figure 3, page 63). The com- 
mand is TF$ = CHR$(27) + 
CHR$(65) + CHR$(4) (see line 1240 
in the listing). Following the escape 
character, CHR$(65) resets the line 
spacing and CHR$(4) sets the spac- 
ing at four rows of dots. 

To avoid a cascade effect, the pro- 
gram prints an entire line of diacriti- 
cals first, followed by a partial line 
feed, and then a line of base charac- 
ters. The diacriticals must be stored 
in the array T$(X), where X is the 
character counter. Baseline charac- 
ters are stored in the array B$(X). If 
a phonetic symbol lacks a diacritical, 
a blank must be printed in the top 
sector to maintain proper alignment 
between the top and bottom of subse- 
quent complex symbols; this is ac- 
complished by initializing the whole 
T$(X) array with blanks before get- 
ting a line. 

The code for a stress mark, !, is en- 
tered into the text file after its vowel. 
We then send the corresponding 
graphics mark to its proper destina- 
tion over the vowel by placing it in 
T$(X -1) rather than T$(X). X is 
decremented by one so the next char- 
acter will be assigned to T$(X) rath- 
er than T$(X + 1) (see line 200 in 
the listing). The same procedure is 
used for the graphics apostrophe in 
line 250. 

When vertically extended charac- 
ters are represented by a single char- 
acter in the text file, both the top and 
bottom sectors of the character can be 
assigned directly to corresponding ar- 
ray elements. For example, T repre- 
sents the standard c with a diacritical 
cap that looks like a v with a nested 
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apostrophe. The graphics cap is as- 
signed to the T$(X) array in line 270, 
while the standard Epson c goes into 
B$(X) (see Figure 4, page 63). A col- 
umn can be raised one row by dou- 
bling its number. To raise an entire 
character one row, double the data 
point values for each of the twelve 
columns. 

The example in Figure 4 illustrates 
vertical extension by setting a graph- 
ics character on top of a standard font. 
It would work just as well in reverse, if 
that produced the desired shape, or 
you could use graphics in both the top 
and the bottom sectors, as I have done 
with the character “eth” (see Figure 
5, page 63). Overstriking, superscript- 
ing, and subscripting provide addi- 
tional possibilities accessible to either 
the top or bottom sectors in this flexi- 
ble system; however, I have only been 
able to achieve overstriking on stan- 
dard characters. 


The Program 

Because characters consume more 
memory than numerals, text process- 
ing runs more slowly than calcula- 
tions. You can accelerate a program 
by placing frequently used subrou- 
tines near the beginning and by stor- 
ing string constants in variables; ini- 
tialization routines are placed near 
the end. Thus, program execution first 
GOSUBs to line 850, where it sets the 
margins, length of lines, and flags, 
then it dimensions the top and bottom 
sector arrays, T$(X) and B$(X). 

Beginning with line 980, two nest- 
ed FOR/NEXT loops define the pho- 
netic set. The inside or N loop begin- 
ning on line 990 reads one data line to 
build a graphics string by concatena- 
tion; each data point represents one 
high-density column. At line 1030, 
the column descriptor string is pre- 
fixed with the graphics command. 
The outside or M loop beginning with 
line 980 cycles the process through 
all the data lines. 

Commonly used sequences of 
printer commands for emphasis, su- 
perscripting, and partial and normal 
line feeds are assigned to string vari- 
ables from line 1190. This segment 
also defines the two overstrike char- 
acters 4 and x. 

From line 1320, a DOS subroutine 


catalogs the text diskette, prompts 
for the name of the text file, verifies 
the name, opens the file, and opens 
the printer port, PR#1. Notice in 
lines 1500 and 1510 that the com- 
mand to the printer precedes the 
PRINT D$;“READ”:T$ command to 
the disk drive. Why this particular 
order is necessary remains one of 
those mysteries of the silicon cosmos, 
but the program will not work prop- 
erly if the statements are reversed. 

After the catalog has been listed 
and the file name entered, the pro- 
gram prompts for the desired line 
spacing with a default value of 0 for 
single spacing. The IF/THEN state- 
ment at line 1500 rejects spacings less 
than zero or greater than nine. 

Before getting the first character 
from the text file, the program per- 
forms one more task: a subroutine be- 
ginning on line 650 assigns blanks to 
all elements of the T$(X) and B$(X) 
arrays. The blanks in the top sector 
remain, unless replaced by diacriti- 
cals or partial fonts, to guarantee 
proper horizontal alignment of dia- 
criticals to character base sectors. 

After initialization, execution drops 
to line 100 to get the first character 
(A$) from the text file and to incre- 
ment the character counter X. Be- 
cause both arrays have been initial- 
ized with blanks, a blank in A$ does 
not require an assignment; execution 
is routed to line 90, which checks for 
line length. If A$ is not a blank, lines 
120 and 130 check whether A$ is a 
flag for English (ENG$ = ‘‘*”) or for 
Coeur d’Alene (CDA$ = “+”). If 
A$ is a flag, the result is stored in 
FLAG$ and execution returns to line 
100 to get another character. 

Because flags are not printed, the 
counter is decremented by one. The 
flag variable in line 150 directs subse- 
quent traffic. When FLAG$ is En- 
glish, A$ is assigned directly to an el- 
ement of the B$(X) array at line 150; 
T$(X) remains a blank, as initialized. 
When the flag variable switches to 
Coeur d’ Alene, execution branches 
to line 180 where a graphics or back- 
space-and-overstrike sequence corre- 
sponding to A$ is assigned to B$(X). 

All paths to the printing subrou- 
tine pass through carriage-return and 
end-of-line checks. If A$ is a Carriage 
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return, the end-of-line variable EOL 
is set as the current value of X. Be- 
Cause no word segment remains at 
the end of the line, the variable SEG 
is set to 0. Execution branches to the 
printing routine at line 410. 

If a line contains more than 60 
characters, the check at line 90 causes 
a branch to line 690; there a reverse 
checking procedure looks for the last 
blank in the line to set the end-of-line 
variable. It also determines the length 
of the trailing word segment to be car- 
ried over to the next line. | 

When execution passes to the 
printing subroutine at line 410, 
PRINT SPC(LM); prints the left mar- 
gin. The FOR/NEXT loop beginning 
in program line 450 prints the top 
sector diacriticals contained in 
T$(X). Line 460 prints the partial 
line feed of four rows and increments 
the line feed counter, LF. To com- 
plete a line, it remains only to print 
the baseline characters. PRINT BF$; 
resets the line spacing to eight rows. 
For unknown reasons, the eight-row 
line feed cannot be printed with a sin- 
gle print command as is done for the 
four-row line feed. The left margin is 
printed again, and the FOR/NEXT 
loop beginning at program line 500 
prints the baseline. 

The assignments made in the loop 
at line 610 transfer the line-final 
word segment to the beginning of the 
following line of text. The loop begin- 
ning with program line 660 reinitia- 
lizes the remainder of the two line ar- 
rays. Subsequent lines set X to the 
length of the segment and reinitialize 
the counters FIRST and SEG. 

Now the program cycles back to 
the line feed check in line 80. More 
arithmetic is needed. The length of a 
page is 66 lines; after the last line, we 
print two blank lines, a line number, 
and six more lines for a total of nine 
with a bottom margin of six. The fig- 
ure nine represents the bottom mar- 
gin in the program. At line 780, the 
assignment FILL = 66 — BM — 
LINES says to subtract nine and the 
line count from 66 lines. After the 
command PRINT NLF$ returns the 
line feed status to normal, the fill 
lines and bottom margin are printed. 
Line 800 centers the page number, 
which is printed in line 810. The line 
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feed counter is reinitialized to the 
value of the top margin (four), and 
the page counter PG is incremented 
by one. | 


Summary 

The program in the listing prints verti- 
cally extended phonetic characters on 
the Epson MX-100 with Graftrax 
Plus by storing graphics commands in 
two arrays for each line. Flags insert- 
ed in the text file route ASCII codes to 
English or phonetic program seg- 
ments. In the phonetic branch, the 
ASCII codes are replaced by graphics, 
overstrike, or superscript code se- 
quences. A phonetic symbol may com- 
bine these modes with standard 
characters. 

Formatting features include mar- 
gins, page numbering, word wrap, and 
variable line spacing. English and 
phonetic fonts mix freely within lines 
of text. While perhaps not as flexible 
as graphics font programs that print 
one row at a time, a program such as 
this, which overlays whole lines, 
should print more rapidly—an impor- 
tant consideration when long texts are 
involved. If you use the same charac- 
ter set repeatedly, the once-only effort 
of programming data lines is minor 
compared to the advantages of using a 
familiar word processor for text entry 
and formatting. 

Although these graphics routines 
might be unnecessary with new print- 
ers that support downloading of 
fonts, the system of storing partial 
characters in arrays and splicing lines 
by means of partial overlays is adapt- 
able even to these printers. Because 
the program stores a phonetic char- 
acter as a string of commands, it is 
also adaptable to daisy wheel print- 
ers, especially those that support re- 
verse line feeds. A Coeur d’ Alene or- 
thography similar to the one created 
on the Epson could be printed on a 
daisy wheel printer with only three 
physically modified characters. The 
program would require only one line 
array, rather than the two arrays re- 
quired to print vertically extended 
symbols on the MX-100. 

Although many Chinese or Kanji 
characters would fit within the verti- 
cal format of two arrays, large and 
complex fonts of Chinese, Japanese, 


or other symbol systems may require 
splicing of multiple arrays. You can 
create wider characters by using more 
than twelve columns in the graphics 
command prefix. For example, a 
Kanji character could probably fit 
within a matrix of 16 dot rows by 32 
high-density columns. Aside from the 
problem of graphics design, practical 
use of fonts with hundreds or thou- 
sands of characters would require a 
different system of text entry and 
character-to-keyboard assignment. 

Once you understand the binary 
method of specifying the shape of 
high-density graphics columns in data 
lines, adaptation of this program to 
print other two-sectored fonts is rela- 
tively simple. Owners of MX series 
Epson printers with an interest in spe- 
cial character sets may find it essen- 
tial. Modification of escape sequences 
will make it available to other print- 
ers. If you have a secret urge to print 
Sanskrit, runic, or Elf script, the tools 
are now available. Please send me list- 
ings of your data statements. 


Postscript 

Listing Two (page 70) contains some 
of the more commonly used special 
characters of the International Pho- 
netic Alphabet taken from Robert 
Albright’s article ‘The International 
Phonetic Alphabet”? (/nternational 
Journal of American Linguistics, vol. 
24, no. 1, January 1958). The pro- 
gram and data lines can be substitut- 
ed as needed into the sections of List- 
ing One titled ‘“‘Assign Fonts To 
Array Elements” and “Graphics 
Fonts.’ The choice of an appropriate 
entry character for each graphics 
character will depend upon the orga- 
nization of the user’s orthography. 
Few applications would require all 
the characters. Avoid the numbers 7, 
8, and 9 in graphics data statements 
for the Epson MX printers; they re- 
sult in beeps and unpredictable 
graphics. 2 


DDJ 


(Listing begins on page 66) 
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THE fifth generation language > 


Highlights of LVM Prolog: 


aThe highest level of a heirarchial a Type LVM Prolog makes possible the 


robotic control system. 


A Machine recognition of natural 
language. 


a Expert systems and knowledge 
engineering. 
Optional: 

A Special libraries 


a Language extensions 


Educational Package 


$29.95 


(MSDOS) 


a A A 


execution of Al applications previously 
only possible on a mainframe. 


A Invisible compilation to a semantic 
network provides the flexibility of the 
interpreted mode and the speed of a 
compiler. 


A Virtual memory and a sophisticated 
cache algorithim limited only by the 
DOS, typically 2 gigabytes. 


A Syntax superset with many extensions 
such as pattern specified insertion 
and deletion, clause indexing, robotic 
control. 


AUnlimited number of resident and 


virtual modules, each up to 2 giga- 
bytes in size. 


A ib ry 


UNIX™ Technology for CP/M™ 


ConlX can provide any 48K+ CP/M-80 compatible system 
with many advanced capabilities of UNIX. You'll be amazed 
at what your 8-bit micro can do now! ConIX features include: 


I/O Redirection and Pipes (uses memory or disk), multiple 
commands per line, full upper/lower case and argument 
processing, Auto Screen Paging. Programmable Function Keys, 
improved User Area Directory manipulation, Command and 
Extension (Overlay) Path Searching. “Virtual’’ disk system, 
8Mb Print Spooler, extensive preprocessed Shell’ command 
PIORRRIAINE language, 300+ variables, over 100 built-in 
commands, Math Package, 22 new BDOS SysCalls, Archiver 
(compacts files for disk space savings of over 50%), On-Line 
Manual system and much more! Uses as little as 1/2K RAM! 
Runs with CP/M for true data and software compatibility. 
Installs quickly and easily without any system modifications. 


The ConIX Operating System 
List Price: $165 


Price includes Instructional Manual, 8° SSSD disk, and free support. 
5\%"' format conversions available. To order, contact your local dealer, 
or buy direct and add rehab $4.50 UPS, $10 Canada, $25 overseas, 
COD $2 extra (USA only). NY State residents add sales tax. 


Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station, NY 10462 
Tel. (212) 652-1786 


Dealer inquiries invited! 
UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 


aTHE most cost efficient package in the industry. 
$500- (MSDOS version) Also available for Xenix, Unix, CP/M68K 


had 


automata design assoc. 


AVISA, Mastercard, AMEX 


acallor write for brochure 


1570 Arran Way Dresher, PA 19025 technical: (215)646-4894 orders: (215)355-5400 
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Checks Balances 


is creating Panda-monium 
for Home Accountant and Quick Check! 


When people compare Checks & Balances to Home Accountant and 

of , i. Quick Check, it’s no contest! Just look at these examples: 

° as 44. Oe eWe give you powerful, easy to use and easy to remember English com- 
, ‘ mands to take you from one function to another instantly. They give you a 

menu to go to another menu which goes to another menu to go to another 

menu. ... 

eWe put up to seven entries on a screen at a time in a form just like your 

check register and let you scroll forward and back like flipping pages. They 

disply one entry per screen that doesn't look at all like your familiar check 

register. 
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CHECKS & BALANCES also has a 


Rolodex for names, addresses, phone , — disv inserting ondaietn 
numbers and notes, can print nearly any eWe let you make corrections on any entry displayed by g g 


type of check, has reports comparing in- characters or typing over the error just like your word processor. With them 
Come and expenses, lets you disperse making corrections means going to special menus where you have to call up 
any entry to multiple categories, keeps a the entry again, then going back through the menus to resume your work. 

full year at a time, and gives you as many eWe give you over forty characters of space for the payee and memo instead 
checkbooks as you want, on any disk of as few as fifteen. 

drive. eAnd best of all... we cost only $74.95. They cost a whole lot more! 















Start the New Year out right (and get last year in order for tax time). Pick up CHECKS & BALANCES at your 
local dealer, or order direct from CDE. CHECKS & BALANCES is available for PC-DOS, MS-DOS and CP/M. 
Indicate computer type, operating system, and disk type (8” SSSD, 5%”SSDD, or 5%” DSDD). California 
residents include 6% sales tax, and everyone include $2 shipping and handling. Dealer distribution bundling 
rates available. Write for complete catalogue of software for home and business. 


Visa/MC accepted CDE SOFTWARE (213)-661-2031 
2463 McCready Ave. « Los Angeles, CA 90039 
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Magic Mushroom for the AlICE (rext begins on page 58) 
Listing One 


10 ONERR GOTO 1630 
20 TEXT : HOME 





30 REM ~------------—------~----------------------- 

40 GOSUB 850: GOSUB 650: REM INITIALIZE 

50 REM --=------~----------~-----------------__-------- 

60 REM GET CHARACTER AND SET LANGUAGE FLAGS 

10 REM res 

80 IF LINES > = 66 - BM THEN GOSUB 760: REM END-OF-PAGE : 


96%) 3¢ X= EL THEN GOSUB 690: GOSUB 410: GOTO 80: REM EOL,PRINT,PG 
100 GET AS: X=X+1 


110 IF AS =" " THEN 90 

120 IF AS = ENGS THEN FLAGS = ENGS: X = X - 1: GOTO 100 

130 IF AS = CDA$ THEN FLAGS = CDAS: X = X - 1: GOTO 100 

140 IF AS = CR$ THEN EOL = X:SEG = 0: GOSUB 410: GOTO 80: REM PRINT 


150 IF FLAGS = ENGS THEN BS (X) = A$: GOTO 90 
160 GOSUB 180: GOTO 90 


170 REM —~--------------------------------------- 
180 REM ASSIGN FONTS TO ARRAY ELEMENTS 

190) REM ----------—- === == 
200 IF AS = "1!" THEN :T$(X - 1) = G$(7):X = X - 1: RETURN 

210 IF A$ = "E" THEN B$(X) = G$(2): RETURN 

220 IF AS = CHRS$ (101) THEN B$(X) = G$(13): RETURN 

230 IF AS = "W" THEN BS(X) = SS$: RETURN 3 

240 IF AS = "H" THEN BS$(X) = G$(1l): RETURN 

250 IF AS = "'" THEN T$(X - 1) = G$(6):X = X - 1: RETURN 

260 IF AS = "C" THEN B$(X) = CHRS (99):TS$(X) = G$(5): RETURN 

270 IF AS = "T" THEN BS(X) = CHRS (99) :TS(X) = G$(4): RETURN 

280 IF AS = "L" THEN BS(X) = LTS: RETURN 

290 IF AS = "S" THEN B$(X) = CHRS (115):T$(X) = G$(5): RETURN 

300 IF AS = "X" THEN BS$(X) = BX$: RETURN 

310 IF AS = "I" THEN BS(X) = G$(3): RETURN 

320 IF AS = "D" THEN T$(X) = G$(9):BS$(X) = G$(10): RETURN 

330 IF AS = "G" THEN BS(X) = "O" + CHRS (8) + "=": RETURN 

340 IF AS = CHR$ (106) THEN B$(X) = A$:TS$(X) = G$(5): RETURN 

350 IF A$ = "N" THEN BS(X) = G$(8): RETURN 

360 IF AS = CHRS$ (111) THEN B$(X) = G$(11): RETURN 

370 IF AS = "O" THEN B$(X) = CHRS (111): RETURN 

380 IF AS = "U" THEN BS(X) = G$(12): RETURN 

390 BS(X) = A$: RETURN : 

400 REM ---------------------------------------_------------- + 
410 REM PRINT 

420 REM ~---------------—--—---------------- + ------- + -- 


430 REM ** PRINT TOP SECTOR 

440 PRINT SPC( LM);: REM LEFT MARGIN 

450 FOR PR = 1 TO EOL - 1: PRINT TS(PR);: NEXT 
460 PRINT TF$: REM 4 ROWS LINE-FEED 

470 PRINT BFS;: REM 8 ROWS LINE-FEED 

480 REM ** PRINT BOTTOM SECTOR 

490 PRINT SPC( LM);: REM LEFT MARGIN 

500 FOR PR = 1 TO EOL - 1: PRINT BS(PR);: NEXT 
510 PRINT :LINES = LINES + 1] 

520 REM LINE-SPACING 

530 IF S = 0 THEN GOTO 590 

540 PRINT NLFS; 

550 FOR L =.1 TOS 

560 PRINT :LINES = LINES + 1] 

570 IF LINES > = 66 - BM THEN GOSUB 760: GOTO 590: REM PAGINATION 
580 NEXT , 

590 REM ** CARRY OVER WORD SEGMENT 

600 IF SEG = O THEN 650 

610 FOR FIRST = 1 TO SEG 


620 T$(FIRST) = TS(EOL + FIRST) 

630 BS(FIRST) = B$(EOL + FIRST) 

640 NEXT FIRST 

650 REM ** INIT ARRAYS 

660 FOR X = FIRST TO. LL:TS(X) = " ":BS$(X) =" ": NEXT 

670 X = SEG:FIRST = 1:SBG = 0: RETURN 

680 REM ——-—--+-~—-~—-———-—--- 
690 REM FIND END-OF-LINE 

700° REM —-—-—--———~—-—-—- + 
710 FOR EOL =LLT01 STEP -] 

720 IF BS(EOL) = " " THEN SEG = LL - EOL: RETURN 


730 NEXT EOL (Continued on page 68) 
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FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-80. A TRULY 


LEOR ZOLMAN 
AUTHOR OF BDS C 


Complete upward compatibility with DDT 

Simultaneous instruction, register, stack & memory displays 
Software |In-Circuit-Emulator provides write protected memory, 
execute only code and stack protection. 

Full Z80 support with Intel or Zilog Mnemonics 

Thirty day money back guarantee 

On-line help & 50 page user manual 


ONLY ILD. 
_SOFTADVANICES — 








P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 
oon) aes 
(MasterCard | VISA | 
| ¢& Saray | 
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ALT 


The one and only adult Lisp system for CP/M users. 
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be er ai ag, Waltz Lisp is a very powerful and complete implementa- 
i ey tion of the Lisp programming language. It includes 
ag poe]. * ES _ features previously available only in large Lisp systems. In 
pe 2 2s 2 era se fact, Waltz is substantially compatible with Franz (the Lisp 
ogee one oe me ete ee orunning under Unix), and is similar to MacLisp. Waltz is 
p perfect for Artificial Intelligence programming. It is also 
~ most suitable for general applications. 
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SPIES 


A character strings. Full string operations including fast matching/extraction. ¢ Flexibly implemented random file access. 
© Binary files. © Standard CP/M devices. * Access to disk directories. ¢ Functions of type lambda (expr), nlambda 

y (fexpr), lexpr, macro. © Splicing and non-splicing character macros. * User control over all aspects of the interpreter. 
f° Built-in prettyprinting and formatting facilities. © Complete set of error handling and debugging functions including 
Ye user programmable processing of undefined function references. © Virtual function definitions. ¢ Optional automatic 
loading of initialization file. © Powerful CP/M command line parsing. * Fast sorting/merging using user defined 
comparison predicates. ¢ Full suite of mapping functions, iterators, etc. ¢ Assembly language interface. © Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5” 
and 8"' disk formats available. 


IIA sine spring $169" 


written in Waltz Lisp.) 


RO ODE * Manual only: $30 (refundable with order). All 
foreign orders: add $5 for surface mail, $20 for 

ee airmail. COD add $3. Apple CP/M and hard sector 

15930 SW Colony Pl. formats add $15. 


Portland, OR 97224 cutee | -800-LIP-4000 pep: 411 


Unix’ Bell Laboratories. 


CP/M* Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 
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LISP 


FOR THE 


IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


DATA TYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


mM MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


M FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


m@ 10 SUPPORT 
Multiple Display Windows 
Cursor Control 
All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

OBJ File Loader 


M@ RUNS UNDER PC-DOS 1.1 or 2.0 
Ree ee ee See 


lQLISP 








5%’ Diskette 
and Manual_——SC«< 75.00 
Manual Only Ss» $$: 30.00 


f q Integral Quality 


P.O. Box 31970 
Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 


Magic Mushr oom fe or fhe Alic e (Listing Continued, text begins on page 58) 
Listing One 


740 EOL = LL + 1: RETURN 

750 REM -—-----------------------------------~------------- +--+ 
760 REM PAGINATION 

770 REM ------------~---------------------------------------+-------- 
780 FILL = 66 — BM —- LINES : PRINT NLFS; 

790 IF FILL > 0 THEN FOR L = 1 TO FILL: PRINT : NEXT 

800 PRINT : PRINT : CENTER = IM + LL / 2 - 3 

810 PRINT SPC( CENTER);"- ";PG;" -"; FOR L = 1 TO 6: PRINT : NEXT 
820 FOR L = 1 TO TM: PRINT : NEXT 


830 LINES = TM:PG = PG + 1: RETURN » 
840 REM -—----~---------------—--~-~~- ~~ 

850 REM INITIALIZE VARIABLES AND DIMENSION ARRAYS 

860 REM -------------------~--~------~~~.---~ ~~~ — 


870 VTAB 10: HTAB 12: PRINT "INITIALIZING" 

880 TM = 4:BM = 9:LINES = TM:PG = 1: REM TOP AND BOTTOM MARG, PAGE 
890 LM = 10:RM = 70: LL = RM — LM: REM MARGINS, LENGTH OF LINE 

900 CDAS = "+": ENGS = "*": REM COEUR D'ALENE AND ENGLISH FLAGS 
910 FLAGS = "+": REM INIT TO COEUR D'ALENE 

920 DIM TS(LL): DIM B$(LL): REM TOP- AND BOTTOM-OF-LINE SECTORS 


930 REM -----------------------------~---------_--_____---_-- +. 

940 REM GRAPHICS FONTS 

950 REM --------------—----~—---------__----__---_ mere 

960 DIM G$(13): REM FONTS 

970 GC$ = CHRS (27) + CHRS (76) + CHRS (12) + CHRS (0): REM 
GRAPHICS COMMAND 

980 FOR M = 1 TO 13: REM READ FONTS 


990 FOR N = 1] TO 12: REM READ COLUMNS 
1000 READ G 

1010 GS(M) = G$(M) + CHRS (G) 
1020 NEXT N 

1030 G$(M) = GCS + G$(M) 

1040 NEXT M 


1050 DATA 32,96,78,78,72,72,120,48,0,0,0,0: REM G$(1) GLOTTAL STOP 
1060 DATA 4,46,42,42,42,42,42,62,28,8,0,0: REM G$(2) SCHWA 
1070 DATA 0,0,0,0,32,62,62,2,2,0,0,0: REM G$(3) IOTA 


1150 DATA 16,48,34,34,34,34,34,54,62, 
1160 DATA 14,14,18,18,32,32,18,18,14, 
1170 DATA 20,62,42,42,42,42,42,42,0,0, 


8,0,0: REM G$(11) OPEN "0" 
4,0,0: REM G$(12) LAX MD-CNT VL 
0,0: REM G$(13) LOW-MID "E" 


1080 DATA 32,48,24,12,118,118,12,24,48,32,0,0: REM G$(4) EJEC PALATAL 
1090 DATA 32,48,24,12,6,6,12,24,48,32,0 0,0: REM GS$(5) PALATAL 
1100 DATA 0,0,0,0,80,80,96,96,0,0,0,0: REM G$(6) EJECTIVE 
1110 DATA 0,0,0,8,24,48,96,64,0,0,0,0: REM G$(7) STRESS 
1120 DATA 62,62,32,32,33,33,33,33,63,30,0,0: REM G$(8) NASAL VELAR 
1130 DATA 0,0,8,40,56,24,12,12,8,8, 0,0: REM GS$(9) ETH TOP SECTOR 
1140 DATA 28 ,62,34,34,34,34,38,62,60,0,0,0: REM G$(10) ETH BOT SECT 
2 
i. 


1180 REM —-----—--------------—--------~---~- ao 
1190 REM PRINTER COMMANDS 
1200 REM ----------—---—------------------- 
1210 CRS = CHRS (13) 
1220 EMS = CHRS$ (27) + CHRS (69): REM EMPHASIS 
1230 OFFS = CHRS (27) + CHRS (70): REM TURN OFF SUP/SUBSCRI PT 
1240 TFS = CHRS (27) + CHRS (65) + CHRS (4): REM 4 DOTS LINE-FEED 
1250 BFS = CHRS$ (27) + CHRS (65) + CHRS$ (8): REM 8 DOTS LINE-FEED 
1260 NLFS = CHRS (27) + CHRS (65) + CHRS$ (12): REM NORMAL LN-FEED 
1270 RSS = CHRS$ (27) + CHRS (64): REM RESET 
1280 SSS = OFFS + CHRS (27) + "S" + CHRS$ (0) + CHRS (119) + 
CHRS (27) + CHRS$ (72) + EM$: REM SUPERSCRIPT COMMAND 
1290 BX$ = CHRS (27) + "=" + CHRS (1) + CHRS$ (120) + CHRS (27) + 
"-" + CHRS (0): REM BARRED "x" 
1300 LTS = CHRS$ (108) + CHRS (8) + CHRS (126): REM "L" BKSP TILDA 
1310 REM ~—~--~--------------------------~--- 
1320 REM DOS 
1330 REM -—------—---——-----~--—-——---__--- + -- 


1340 DS = CHRS (13) + CHRS (4) 

1350 PRINT DS$;"MONI" 

1360 VTAB 10: HTAB 10: PRINT "TURN ON PRINTER" 

1370 VTAB 11: HTAB 10: PRINT "INSERT TEXT DISKETTE" 
1380 HTAB 10: PRINT "PRESS ANY KEY TO CONTINUE"; 
1390 GET QS: HOME 

1400 PRINT DS; "CATALOG" 

1410 INVERSE : PRINT "RIGHT DISKETTE? Y OR N> "; 
1420 GET QS: IF Q$ = "y" THEN PRINT : GOTO 1460 


1430 NORMAL : HOME : VTAB 
12: HTAB 10 (Continued on page 70) 
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CP/M® 


Runs on 128K or FatMac 
Full 64K CP/M 2.2 emulation 
including ASM, DDT, PIP, STAT etc. 
Now you can write, debug, and 
run 8080 programs on a Mac. 
Runs thousand of programs 
including BASIC-80™, WORDSTAR™: 
LogiCalc™ and DBase II™ 


ISLAND SOFTWARE, INC. 


ONE RICHMOND SQUARE 
PROVIDENCE, RI 02906 
(401) 421-4550 
VISA, MC, AMEX accepted 


$125 








CP/M is a 
registered trademark 
of Digital Research, Inc. 
WORDSTAR is a 
registered trademark 

of Micropro. 

DBASE II is a registered 


Basic-80 is a registered 
trademark of 

Microsoft Corporation. 

LogiCalc is a registered 
trademark of Software 

Products International. 
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Have you been waiting on your slow floppy disk 
drives too long? SemiDisk Systems has a disk 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. 


Have you been waiting for a SemiDisk big enough 


to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk 
Systems is now delivering 2 megabytes of disk storage 
on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you ve 
tried a SemiDisk you'll know why we say. . . 



































Handy Debugging Tool 


The Model 08 is a 
convenient, hand- 
held instrument for 
monitoring the 
activity of eight-bit 
microprocessors. 
The unit displays 
memory contents, 
1/O activity, or 
program flow without 
affecting the 
operation or speed 
of the system under 
test. A scope trigger 
output is included. 
The monitor’s 
clamshell case 
closes to protect it 
when carried in a 
tool kit or briefcase. 
The unit works with 
65XX and 68XX 
family devices, 8085, 
NSC800, Z80 and 
others. 











Model 08 Bus Monitor complete with cable and 
personality chip for the microprocessor of your 
SHOICE 5. dk Se oa Ses eee ee $490.00 
Additional cables and personality chips ..$ 30.00 


MECKLENBURG ENGINEERING 
P.O. Box 744, Chagrin Falls, Ohio 44022, (216) 338-4237 
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Someday you'll get a SemiDisk. 
Until then, you'll just have to 


SemiDisk I, S-100 $995 
SemiDisk II, S-100 $1295 $2549 
IBM PC, XT, AT $945 $2499 
QX-10,QX-16 $799 $2499 
TRS-80 II,12,16 $995 $2499 
Battery Backup Unit $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, Beaverton, Oregon 97075 


503-642-3100 


master charge Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
fee en mean computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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PROGRAMMERS 





db_VISTA 


The first DBMS designed 
exclusively for the C language. 


PREFERRED over ISAM and file utilities 
POWER like a mainframe DBMS 
PRICED like a microcomputer utility 
PORTABILITY like only C provides 


FEATURES INCLUDE: 


Written in C, for C. 

Maximum data efficiency using the 
network database model. 

Virtual memory disk accessing. 

Fast B’-tree indexing method. 
Multiple key records-any or all data 
fields may be keys. 

ROYALTY FREE RUNTIME. 

SOURCE CODE INCLUDED. 

Three month extended applications 
support included. 


FREE OFFER 


MENTION THIS AD and choose any one of 
the following C tools from Lattice at no 
additional charge, when you order 

db VISTA 


e Lattice C Compiler 

e C-Sprite Program Debugger 

e Lattice Window Manager 

e Curses Unix-compatible Screen 
Manager (source code included ) 
Panel Forms Manager 
CVUE Screen Editor 


db VISTA with source code: $495 
db VISTA without source code: $395 


OR 
COMPLETE C Development package 
including: 
db__ VISTA, Lattice C compiler, 
C-Sprite, CVUE, & Curses 
a $1520.00 value for only $895.00 


db.__ VISTA available for PC-DOS/MS-DOS, 
for most popular C compilers including Lattice, 
DeSmet, Computer Innovations, AZTEC. Also 
available for most Unix systems and CTOS. 


RAIMA 


CORPORATION 
11717 Rainier Avenue South 
Seattle, WA 98178 
206/772-1515 


CALL TOLL-FREE 
1-800-843-3313 
at the tone: 700-992 
ask for Jim 


MONEY BACK GUARANTEE 


Circle no. 83 on reader service card. 
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Magic Mushroom for the Alice 
Listing One 


(Listing Continued, text begins on page 58) 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 


1660 


1670 
1680 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


PRINT “INSERT CORRECT DISKETTE" 
GOTO 1380 

INPUT "TEXT FILE NAME> ";TS: NORMAL 
GOSUB 1550: REM GET LINE-SPACING 
PRINT DS;"VERIFY ";TS 

PRINT DS;"OPEN ";TS 

PRINT DS$;"PR#1"; 

PRINT D$;"READ ";TS 


PRINT EMS; 

FOR L = 1 TO T™ — 2: PRINT : NEXT : RETURN 

REM -----------------------------------------------~------------- 
REM LINE-SPACING 

REM -----~-------------------~----~--------~--------------------- 


HOME : VTAB 8: HTAB 10: PRINT "DEFAULT SPACING> 0. RETURN" 
: HTAB 18: PRINT "SPACING> ";: INPUT S$ 

IF S$ = "" THEN S = 0: RETURN 

IF ASC (S$) < 48 OR ASC (S$) > 57 THEN 1550 

S = VAL (SS): RETURN 


REM TERMINATION 

a Ee ne a Sa Aa Be ee Oe Se rae AT ESE mONE cS ar SSS SOE eS a 

IF PEEK (222) = 5 THEN EOL = X + 1: GOSUB 410: GOSUB 760: 
PRINT RSS: PRINT D$;"PR#0": PRINT "END OF FILE": END 

IF PEEK (222) = 6 THEN : HOME : VTAB 8: HTAB 12: INVERSE : 
PRINT “FILE NOT FOUND": FOR T = 1 TO 2000: NEXT : NORMAL : 
GOSUB 1380: GOSUB 650: GOTO 60 

PRINT RSS: PRINT DS; "PR#0" 

PRINT "DOS ERROR STATUS: "; PEEK (222): END 


REM ----~-~-~-----—-~--—~------~----------------------_--___-__- 
REM PHONETIC COEUR D'ALENE 

REM COPYWRITE (C) ALL RIGHTS RESERVED 

REM 

REM GARY B. PALMER, ASSOCIATE PROFESSOR 

REM 

REM DEPT OF ANTHROPOLOGY AND ETHNIC STUDIES 

REM UNIVERSITY OF NEVADA, LAS VEGAS, NV 89154 

REM 

REM DECEMBER 31, 1983 

REM -~--~------~-~-—---—---~-----------------------___------__- 


REM PRINTS ENGLISH AND PHONETIC COEUR D'ALENE. 
REM MIXES CHARACTER SETS IN SAME LINE. 

REM TEXT CODE CHARS: "+" = CDA, "*" = ENG, 

REM CREATES VERTICALLY EXTENDED FONTS BY SPLICING TWO ARRAYS. 
REM DOES WORD-WRAP, PAGINATION, AND VARIABLE SPACING. 

REM ALL LOWER CASE CHARS EXCEPT "J" AND "O" PASSED TO PRINTER. 
REM UPPER CASE A,B,F,J,K,M,P,Q,V,Y,Z 

REM SPECIAL CHARACTERS C,D,E,G,H,I,L,N,0,S,T,U,W,X,!,' 

REM REQUIRES APPLE ][ PLUS AND EPSON MX-100. 

REM MARGINS: 4 TOP, 6 BOTTOM, 10 LEFT, 70 RIGHT 


End Listing One 


Listing Two 





IF A$ = "any char" THEN T$(X) = GS(M): BS(X) = 
G$(M+1) 2 RETURN 

DATA 32,32, 127,127,32,32,0,0,0,0,0,0: REM G$(M) 
DATA 0,0,12,14,2,2,2,0,0,0,0,0: REM G%(M+1) 


IF AS = “any char" THEN T#(X) = G#(M): BS(X) = 
G$(M+1): RETURN 

DATA 0,2,2,2,2,2,2,126,126,0,0,0: REM G(M) 
DATA 28,30,2,2,2,2,2,30,31,1,1,0: REM GS(M+1) 
IF AS = “any char” THEN T$(X) = GS(M): BS(X) = 
G$(M+1): RETURN 

DATA 0,2,2,62,62,0,0,0,0,0,0,0: REM G$(M) 

DATA 28, 28,4, 28, 24,0,0,0,0,0,0,0: REM GS(M+1) 


(Continued on page 72) 
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ENVOY" 


Communications Software 


@ Easy to use, menu driven, compact and high speed 

® Access electronic mail, remote systems and data networks like 
CompuServe, The Source and Dow Jones News Retrieval 

@ Terminal mode with large data-capture buffer 

© Error-free transfers of text and binary files 

@ XMODEM (Christensén) and ANSI X3.28 transfer protocols 

@ User-definable Autodial and Autologin menu 

@ Utilities menu for file copy, type, print, erase and rename 

@ Remote unattended file transfers and utilities 

@ Available for most popular computer systems: IBM PC, PCjr, 
PC compatibles, Sanyo MBC-55X, MSDOS, CP/M-86, 
Concurrent CP/M, CP/M 2.2, CP/M Plus and more 

® Money-back guarantee if not completely satisfied 






$4995 


ARTISOFTinc 


P.O. Box 41436 
Tucson, AZ 85717 
(602) 327-4305 


Circle no. 7 on reader service card. 


The new Lattice dBC Library 
commands great performances between 
C language programs and dBASE files. 


With the dBC software tool kit, you can 
extend any existing dBASE-II or 
dBASE-III application, or write 
complete new applications. dBC 
provides 37 functions that easily add, 
update, delete, retrieve and organize 
records as well as their corresponding 
indexes. And up to 8 data and 8 index 
files can be opened and processed 
simultaneously . 


The dBC Library accesses 
dBASE files under the MS-DOS, 
PC-DOS and UNIX environments. 


dBASE is a trademark of Ashton-Tate 
dBC is a trademark of Lattice 


It operates with popular C compilers such 
as Lattice C, CI-C86 and DeSmet C88. No 
object license is required to re-sell products 
developed with the dBC Library. 


Put the spotlight on your dBASE 
programming...order today! 


PRICE: $250 per copy 

($500 with source code) 
ASK ABOUT OUR “‘TRADE UP TO 
LATTICE C POLICY” 


For more information or to place your 
order contact: 


LATTICE 


P.O. Box 3072 
Glen Ellyn, IL 60138 
(312) 858-7950 
TWX 910-291-2190 





Circle no. 58 on reader service card. 









Electronic 
Circuit 
Analysis 


New release 

Transient, AC, DC analysis 
Full nonlinear 

Over 200 nodes 

Full editing 

Macro circuits 

Worst case, Monte-Carlo 
Temperature effects 
Frequency dependent parts 
Time dependent parts 





For MS-DOS. 192k minimum. 
$395.00 


Tatum Labs 
33 Main Street 

Newtown, CT 06470 
(203) 426-2184 


Circle no. 82 on reader service card. 


Only $95 with FULL SOURCE CODE! 


“«.. an incredible learning tool.” Byte 


For only $95, Q/C is a ready-to-use C compiler for CP/M with com- 
plete source code. Here’s what BYTE (May 1984) said: “Q/C ... has 
a portable library and produces good code quality. If you want to 
learn compiler construction techniques or modify the standard lan- 
guage, Q/C is the obvious choice.” 


e Source code for compiler and over 75 library functions. 
e Strong support for assembly language and ROMs. 

@ No license fees for object code. 

e Z80 version takes advantage of Z80 instructions. 

e Q/C is standard. Good portability to UNIX. 


Q/C has casts, typedef, sizeof, structure initialization, and function 
typing. It is compatible with UNIX Version 7 C, but doesn't support 
long integers, float, parameterized #defines, or bit fields. Call about 
our new products: Q/C profiler, 280 code optimizer, and Z80 as- 
sembler and virtual linker, all with full source code! 


THE CODE 
WORKS 


STE TT 


5266 Hollister, Suite 224 
Santa Barbara, CA 93111 
(805) 683-1585 


Q/C. CP/M. Z80, and UNIX are trademarks of Quality Computer Systems. Digital 
Research. Zilog. Inc.. and Bell Laboratories respectively. 


Circle no. 6 on reader service card. 


Magic Mushroom for the Alice (Listing Continued, text begins on page 58) 
Listing Two 


? IF AS = "any char" THEN BS(X) = GS(M): RETURN 
DATA 32,96, 78,78, 72,72, 120,48,0,0,0,0: REM G$(M) 
(See also, (isting 1, lines 240, 1050) 


m% IF AS = “any char" THEN B#(X) = G&(M): RETURN 
DATA 28, 28, 32,32, 28, 28, 33,33,31,30,0,0: REM GS (mM) 


n IF AS = "any char" THEN BS$(X) = GS(M): RETURN 
DATA 62, 62,32, 32,32,32,62,31,1,1,3,0: REM G$(M) 


n IF AS = “any char" THEN B$(X) = GS(M): RETURN 
DATA 1,1,63,62,32,32,32,32,62,30,0,0: REM G$(M) 


nN IF AS = “any char” THEN BS(X) = GS(M): RETURN 
DATA 62, 62,32, 32,33, 33,33; 33,63, 30,0,0: REM GS$(M) 
(See also iiveting 1, lines 350, 1120) 


Yr IF AS = “any char” THEN BS(X) = CHR#$(108) + CHR$ (8) 
+ CHRS$ (126) 
(See also, Listing 1, lines 280, 1300) 


b IF AS = “any char" THEN T#(X) = GS(M): BS(X) = 
G$(M+1): RETURN 
DATA 30,30,2,2,2,2,2,0,0,0,0,0: REM G$(M) : 
DATA 30,30,0,0,0,0, 25, 25,15,4,0.0: REM G$(M+1) 


l IF AS = “any char" THEN TS$(X) = GS(M): BS(X) = 
G$(M+1): RETURN | 
DATA 64,64, 127,127,0,0,0,0,0,0,0,0: REM GS(M) 
DATA 0,0,30,30,2,2,0,0,0,0,0,0: REM GS(M+1) 


kK IF AS = "any char" THEN B#(X) = GS(M): RETURN 
DATA 2,6,12, 24, 36, 108, 70,66,0,0,0,0: REM GS(M) 


£ IF AS = “any char" THEN BS(X) = GS(M): RETURN 
DATA 2; 2, 30,42, 34, 34,50,16,0,0, ,0, O: REM G#(M) 


C IF AS = "any ocher” THEN T#(X) = GS(M)2 BS(X) = 
G$(M+1):2 RETURN : 
DATA 63,63, 16, 48,32, 32,32, 32,32,0,0,0: REM GSM) 
DATA 14,15, 1, 1, 3,3; 0, 0,0, 0, 0,0: REM GS (M+1) 


$ IF AS = atv char” THEN T$(X) = GS(M): BS(X) = 
GS(M+1):2 RETURN 
DATA 6,4, 40, 40,62, 62, 40, 40,4,6,0,0: REM G¢ (M) 
DATA 16, 16, 10, 10, 30, 30, 10, 10, fe: 14, 0,0: REM GS (M+1) 


B IF AS = "any char" THEN T#(X) =" GSM): BS(X) = 
G$(M+1): RETURN 
DATA 30,30, 16, 16,16, 18,30,12,0,0,0,0: REM GS (M) 
DATA: 31, 31,5, A, 4,4,28, 24, 0, 0,0, 0: REM GS (M+1) 


8 IF A$ = "any char" THEN T$(X) = GS$(M): BS(X) = 
G$(M+1):3 RETURN 
DATA 31,63,34,34,34,34,34,34,63,31,0,0: REM GS(M) 
DATA 12,14,2, 2, y Fie as 2, 2,14,12,0, 0: REM GS (M+1) 


3 IF A$ = “any char" THEN T$(X) = G$(M): BS(X) = 
G$(M+1): RETURN 
DATA 0,0,8, 40,56, 24,12,12,8,8,0,0: REM G$(M) 
DATA 28, 62, 34,34, 34,34, 38, b2. é0, O, 0,0: REM GS(M+1) 


4 IF AS = “any char" THEN BS(X) = G$(M): RETURN 
DATA 2,2,2,2,2,6,4,62,62,0,0,0: REM G$(M) 
e IF A$ = “any char" THEN T$(X) = G$(M): BS(X) = 


G$(M+1):2 RETURN 
DATA 12,12,10,10,10,10,12,4, 0,90,0,0: REM GS (M) 
DATA 62,63, 41,41,41, 40,56, 14, 0, 0, 0,0: REM G&(M+1) 


R IF A$ = “any char" THEN BS(X) = G$(M): RETURN 
DATA 68, 76,92, 116,102,71,1,1,1,0,0,0: REM G$(M) 


S IF AS = “any char" THEN T$(X) = GS(M): B(X) = 
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G$(M+i):. RETURN cea 
DATA 0,0,0,6,14,24, 16,16,0,0,0 
DATA 1,1,3, 30, 28,0,0,0,0,0,0,0 


REM G$(M) 


0: 
REM GS (M+1) 


3 IF A$.=\"any Char" THEN B$(X) = G$(M): RETURN 
DATA 108, 108, 64, 66, 82, 114, 108, 76,0,0,0,0: REM G$(M) 


c IF AS = “any char" THEN BS (X) = GS(M): RETURN 
DATA 1, 29, 63, 34, 34, 34, 34,34, 34,0,0,0: REM GS(M) 


Zz IF A$ = “any char" THEN BS(X) = G$(M): RETURN 
DATA 1,1,33,35, 38, 46, 58,50, 34,2,0,0: REM G$(M) 


c IF AS = “any char" THEN BS(X) = GS(M): RETURN 
DATA 54,125, 69,69, 71, 71, 68, 68,0,0,0,0: REM GS (M) 


¥ IF AS =."any char" THEN TS(X) = GS(M): BS(X) = 
G$(M+1): RETURN 
DATA 32, 48,25, 15,6,6,15, 25, 48, $2, 0,0: REM GS(M) 
DATA 0,0,12,14,2,2, 28, 12, 0,0, 0, 0: REM GS (M+1) 


fh IF A$ = “any char" THEN BS(X) = G$(M): RETURN 


DATA 32,32, 126, 126, 40, 40, 40, 40, 14, 14,0,0: REM G$(M) 
§ IF A$ = “any char" THEN B$(X) = G$(M): RETURN 
DATA 48, 120,72, 72, 78, 78, 94, 32,0,0,0,0: REM G$(M) 
IF A$ = “any char" THEN B$(X) = G€(M): RETURN 
DATA 62, 126,72, 72,72, 104,46, 14,0,0,0,0: REM GS(M) 
4 IF AS = “any char“ THEN B$(X) = G$(M): RETURN | | 
DATA 112,112, 16, 16,16, 16,127,127,1,1,0,0: REM G$(M) 
v IF A$ = “any char" THEN BS(X) = G$(M): RETURN 
DATA 5b, 60, 6,2, 34, 38, 60,56, 0, 0,0, 0: REM G$(M) 
7 IF A$ = “any char" THEN B$(X) = G$(M): RETURN 
DATA, 126; 126, 19, 18, 18, 18, 18, 126, 108,0,0, 0: 
REM G$(M) 
; IF A$ = “any char" THEN TS(X) = GS(M): BS(X) = 


G$(M+1): RETURN 
DATA 0,0,24,24,0,0,0,0,0,0,0,0: REM G$(M) 
DATA 16,18, 62, 62,18, 16,0,0,0,0,0,0: REM GS(M+1) 


All the remaining vowels are produced entirely within 
the bottom line, as in the barred-u character which 


follows: 

e IF A$ = “any char" THEN B$(X) = G$(M): RETURN 
DATA 16,16, 60, 62, 18, 18, 18,62,60,16,16,0: REM G$(M) 

Ps DATA 28,29, 35,38, 46, 58, 50, 98, 92, 28,0,0 

DATA 28,28, 34, 34,62, 62, 42,42, 46,44,0,0 

2 DATA 16,48, 34,34, 34, 34, 34,54, 62, 28,0,0 

bp DATA 62, 62, 20,54, 34,34, 34, 34,62, 28,0,0 

g DATA 26, 62, 42, 42, 42, 42,42, 42,0,0,0,0 

DATA 36, 46, 42, 42,42, 62,62, 42,42, 46, 44,0 

3 DATA 4, 46,42, 42,42, 42, 42,62, 28,8, 0,0 

2 DATA 32, 60, 30,42, 42, 42, 42, 42, 58; 18, 0,0 

i DATA 60, 40,2, 2, 60, 60, 2,2,60,62,2,0 

, DATA 44,62, 18, 18,462, 44,0,0,0,0,0,0 

“ DATA 14,14, 18, 18, 32,32, 18, 18,14,14,0,0 

a DATA 28, 62,34, 34,34, 34,54, 20, 62,62,0,0 
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Let's Mouse Around 
A Turbo Pascal/Microsoft Mouse Sketching Program for IBM PCs 





by Vincent an 
Ronald G. Parsons 


74 


he program in the listing (page 
2 75) is fun to use and illustrates 

techniques for using the Micro- 
soft Mouse with Turbo Pascal. The 
program requires the IBM Color/ 
Graphics adapter, a Microsoft 
Mouse, and Turbo Pascal. 

By moving the mouse around, any- 
one can be an artist. When the pro- 
gram starts, an X-shaped cursor ap- 
pears in the middle of a blue screen. A 
line is drawn on the screen as the 
mouse is moved with either mouse 
button depressed. 

Below the drawing area is a set of 
options for changing colors, erasing 
portions of the screen, clearing the 
screen, and quitting the program. If 
the mouse cursor is placed between 
the [ ] after an option, the option is 
executed. Choosing “Back” changes 
the background color, “‘Palette’’ se- 


the program to redefine the mouse 
cursor shape and the position of the 
“hot spot” of the cursor. The hot spot 
is the position relative to the upper 
left corner of the 16 X 16 pixel cur- 
sor block where the position of 
the cursor is defined. The call to this 
function and function 12 (Set User- 
Defined Subroutine Input Mask) re- 
quires slightly different parameters 
than calls to the other mouse func- 
tions. The fourth parameter of func- 
tions 9 and 12 is an offset of an array 
and subroutine, respectively. The 
segment address of this array or sub- 
routine must be passed to the mouse 
interrupt routine in register ES. We 
elected to make the segment address 
a global variable to keep the proce- 
dure parameters for the rest of the 
functions unchanged. 

If you want to define a new cursor 





A mouse makes drawing with a computer easy. 
Here’s a program that makes using a mouse easy. 





lects another palette of colors for 
drawing, and “Color” changes the col- 
or of the lines to be drawn. The “Eras- 
er’ option changes the cursor to a 
square and erases the portion of the 
drawing area in the square when a 
button is down. The “Clear” option 
clears the drawing area and “Quit” 
ends the drawing session. 

Some of the more interesting tech- 
niques for using the Microsoft Mouse 
with Turbo Pascal are discussed be- 
low. 

The Microsoft Mouse function 9 
(Set Graphics Cursor Block) allows 





Vincent and Ronald G. Parsons, 
9001 Laurel Grove Dr., Austin, TX 
78758. 


shape, a screen and cursor mask must 
be defined and placed in two contigu- 
Ous arrays in storage and a pointer to 
these masks passed to function 9. 
Several different cursor shapes are 
defined in the Microsoft Mouse man- 
ual. The examples are given for BA- 
SIC. However, the storage order of 
arrays is different in Turbo Pascal 
than it is in BASIC. Thus, the two- 
dimensional array defined in the list- 
ing has the parameters in reverse or- 
der from the equivalent BASIC arrays 
in the mouse document. The horizon- 
tal and vertical hot spot locations are 
passed in m3 and m4, respectively. 
The hot spot can be within the range 
of — 16 to 16 from the upper left cor- 
ner of the cursor block. 

When you use medium resolution 
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graphics mode with Turbo Pascal f— 
and the mouse, the x coordinate of | 
the mouse must be divided by two be- | 
fore the Turbo Pascal Plot or Draw | 
procedures can use it. Thus, the x co- 
ordinate is calculated as 


xX := m3 div 2; 


The cursor must be hidden before 
you modify any portion of the screen 
containing the cursor. Mouse func- 
tion 2 (Hide Cursor) performs this 
duty. If this is not done, the portion of 
the modified screen behind the cursor 
block will disappear when the cursor 
is moved. Functions | and 2 must be || 
used in pairs because these functions | i 
increment and decrement a cursor 
flag and the cursor is displayed only 
when the cursor flag is zero. The ini- 
tial value of the flag is —1. 

Turbo Pascal permits fast develop- 
ment of programs, and the Microsoft 

- Mouse makes the programs easier to 


use. DD] 
Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 
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le f ‘S M ouse Ar ound Lis ting (Listing Continued, text begins on page 74) 


{ Mouse sketch routine for Turbo Pascal and Microsoft Mouse } 


{ Uses redefined cursor and Medium resolution graphics in color } 
{ by Ronald G. Parsons and Vincent L. B. Parsons } 


Program Mouse sketch; 


type regpack = record 
ax,bx,cx,dx,bp,si,di,ds,es,flags ; integer; 


end; 
cursordef = array[0..1,0..15] of integer; 


var oldx,oldy,x,y : integer; 
i,esreg,ml,m2,m3,m4 : integer; 
cursorl,cursor2 : cursordef; 
background,palettenum,color : integer; 
exit,eraser : Boolean; 


procedure mouse (var ml ,m2,m3,m4: integer); {Microsoft Mouse interrupt routine} 
var regset : regpack; 
begin 
with regset do 
begin 
ax: 
bx 
CX 
ox": 
if 
end; 
intr(51,regset); {Perform mouse interrupt 51} 
with regset do 


ml; {Set registers for mouse interrupt} 


m2: 
m3 ; 
m4 ; 


oe ef 
am" H tt tH 


~~ 


mi=9) or (ml=12)) then es:=esreg; {Set ES for functions 9 and 12} 


begin 
ml := ax; {Set parameters on return} 
m2 := Dx; 
m3 := CX; 
m4 := dx; 


(Continued on next page) 
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Let’s Mouse Around Listing 


(Listing Continued, text begins on page 74) 








end; 
end; 
procedure initialize; 
begin 
cursor1[0, 0]:=$07e0; {Screen mask} {Diagonal Cross} 
ahten, Eb se 
<a r cursorl{0, 2]:=$0000; 
l6/3c ar? cursorl1[0, 3]:=$c003; 
PROCESSING POWER cursorl1[0, 4]:=$f00F; 
cursorl[0, 5]:=$c003; 
cursorl[0, 6]:=$0000; 
In 15 minutes you can have a acl: oe eco 
16 bit O.S. running and still cursorl[0, 9]:=$fffF: 
use your CPM80 with the cursor1[0,10]:=$ffff; 
touch of a key. cursorl1(0,11]:=$ffff; 
plead | a Ee AAG 
cursorl1(0,13]:=$ffff; 
WE SUPPORT cursorl(0,14):=S$ffff; 
CPM80 RAM DISK cursor1(0,15]:=Sffff; 
MSDOS cursorl([1, 0]:=$0000; {Cursor mask} 
CPM86 cursorl[{1, 1]:=$700e; 
cursorl({1, 2]:=$1c38; 
tpn ga : : cursorl[1, 3]:=$0660; 
- ook-A-Like cursorl[1, 4]:=$03c0; 


1.25 Mb RAM** 
6 Mhz No Wait States 


cursorl{l, 5]: 
:=$1c38; 


cursorl[{1l, 6] 


=$0660; 


cursorl{1, 7]:=$700e; 

Real Time Clock cursorl[{1, 8]:=$0000; 
Math Co-Processors curse Pye ta 
cursorl{1, 3= ; 

AND MORE cursorl[1,11]:=$0000; 
Compatible with any Z80 SPELL ecrisecnon: 
System Running CPM 2.2 cursorl[1,14]:=$0000; 
or 3.0. cursorl1[1,15]:=$0000; 


HSC’s CO-1686 
and CO-1668 
Attached Resource 















cursor2[0, 0]: 
cursor2[0, 1): 
cursor2[0, 2]: 
cursor2[0, 3]: 
]:=$1ff8; 


cursor2(0, 4 


=$0000; 
=$0000; 
=$0000; 
=$1ff8; 


{Screen mask} {Eraser} 


Processors cursor2[0, 5]:=$1ff8; 

peel OE cj ate 

: i cursor2{0, 7]:=$0000; 

a peal be ce 

a : cursor2(0, 9]:=$0000; 

cursor2[0,10]:=Sffff; 

cursor2(0,11]):=$ffff; 

aes | oe cursor2[0.12]:=$f fff. 

ile de 2 eee A 

cursor2{0,14]:=$ffff; 

Hallock cursor2(0,15]:=Sffff; 
Systems pork aS oe ree dese {Cursor mask} 

cursor2{1, 1]:= e; 

Company, Inc. cursor2[1, 2]:=$4002: 

Bele a eeanat 

: ; cursor2il, 4]:=$4 . 

Blazing the Trail cursor2[1, 5]:=$4002: 

car hale 

262 E. Main St. cursor2(1, 7]J:=$4002; 

2({1, 8]:=$7ffe; 

Frankfort, NY 13340 fuse. ssc: 

(315) 895-7426 cursor2[1,10]:=$0000; 

cursor2[1,11]:=$0000; 

p cursor2[1,12]:=$0000; 

Available First Quarter cursor2[1,13]:=$0000; 





**CO-1686 Expandable to 768Kb 





Circle no. 26 on reader service card. 
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Now Your 
Computer 
Can See! 


“295.0%° 


A total imaging system complete 
and ready for plug-and-go opera- 
tion with your personal computer. 


The MicronEye™ offers select- 
able resolution modes of 256 x 128 
and 128 x 64 with operating speeds 
up to 15 FPS. An electronic shutter 
is easily controlled by software or 4 
manual functions, and the included sample programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades of grey from the moment you begin operation. 

Only the MicronEye™ uses the revolutionary IS32 OpticRAM™ image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye™ is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye™ is available with immediate delivery for these com- 
puters: Apple Il, IBM PC, Commodore 64 and the TRS-80CC (trademarks of 


Apple Computer Inc., International Business Ma- 






















MicronEye™ 
“Bullet” 


chines, Commodore Corp., and Tandy Corp. 
respectively). 


Phone for MicronEye™ information 
on the Macintosh, Tl PC and RS232 


(trademarks of Apple Computer Inc. and Texas In- 
struments respectively.) 


*(Add $10.00 for shipping and handling [Federal 
Express Standard Air]; residents of the following 
states must add sales tax: AK, AZ, CA, CO, CT, FL, 
GA, IA, ID, IL, IN, LA, MA, MD, ME, MI, MN, NC, NE, 
NJ, NY, OH, PA, SC, TN, TX, UT, VA, VT, WA, WI.) 










SYSTEMS GROUP 
1475 Tyrell Lane 
Boise, Idaho 83706 
(208) 386-3800 
TWX 910-970-5973 
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Be 
To C You Thru. 


Now the W%iardW%au” Applications Programmers Toolkit provides = 
everything you need to increase your C programming productivity. 


APT" features include: 
@ COMPLETE SOURCE CODE (over 5000 lines!) 
@ File handling with direct & keyed access 
@ Screen and Report Generators, with full screen handling for your programs 
@ Generic Terminal Driver for portable code 
@ String math functions, and string manipulation routines 
@ Reference Manual on Disk (over 50 pages) 
@ Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
@ A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C-‘STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 


PSPT RE TICs CURRIE 5 ese 0 ee tie 0 eda Sirs ete ate Bivig OSs tee $495 
Perr teat Wa aS a Fes ese wee fe weg os $395 
ee oR sk os 5S gh SS os bh ee otras ee Sw oe $395 
C-Starter (binary APT, DeSmet Compiler and Book)......... $295 
Pg ys Sf) Se ee ee ae as eae eee eater nae $ 50 


<i ets 


**Detailed Brochures on request** 
*Manual Cost will be applied if APT purchased within 
30 days ($10 re-stocking charge.) U.S. funds only, please. 


Trademarks: MS-DOS/Microsoft, Lattice C/Lattioe, Inc.. MWCS6/Mark Williams Co.. DeSmet C/C Ware, Cl puter Innovations, Inc.. BDS CBD Software, 
DR-C/Digital Research, WizardWare, APT, C-Starter/Shaw - American Technologies 


Call (502) 583-5527 
Ask for APT™ or C-Starter, or Send Check to: 


Shaw x American Technologies 
830 South Second St. - Box 648 Co) 
Louisville, KY 40201, USA De 


(C.O.D. and Foreign Orders - Add $5 Shipping Handling) 
References: Bank of Louisville, Citizens Fidelity Bank. Louisville Chamber of Commerce 


oa) eet ee Oe ee cat Sd 


ee) eg se 
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TECHNOLOGY, INC. 


THE f° JOURNAL 


The C Journal will help YOU use C on YOUR machine 
—IBM PC™, CP/M™, Macintosh™, or UNIX™-based — 
micro, mini, or mainframe. 


It's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

e regular columns for novice through advanced C 
programmers 

e software product and book reviews 


@ tips on working with major compilers and 
operating systems 

@ news from the ANSI standards committee and the 
industry 


For FREE sample issue and discount subscription 
information, write, call, or circle our reader service 
number. The C Journal is a quarterly publication, 
and costs $28/year (add $9 for overseas airmail). 


Subscriptions/Advertising: Editorial: 
Christina Gardner Rex Jaeschke 
(201) 989-0570 (703) 860-0091 


el ale)@al-lamlale(-)el-iale(-salamelele)iier-lalelamagelan 


—— InfoPro Systems 
3108 Route 10 
P.O. Box 849 
Denville, NU 07834 
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(LISP) 


Artificial Intelligence Language 
UO-LISP Programming Environment 
The Powerful Implementation of LISP 

for MICRO COMPUTERS 


LEARN LISP System (LLS.1) 
(see description below $39.95 


UO-LISP Programming Environment 
Base Line System (BLS.1) $49.95 


Includes: Interpreter, Compiler, 
Structure Editor, Extended Numbers, 
Trace, Pretty Print, various Utilities, 
and Manual with Usage Examples. 
(BLS.1) expands to support full system 
and products described below. 









































UO-LISP Programming Environment: The Usual LISP Interpreter Functions, 
Data Types and Extensions, Structure & Screen Editors, Compiler, Optimizer, LISP & 
Assembly Code Intermixing, Compiled Code Library Loader, /O Support, Macros, 
Debug Tools, Sort & Merge, On-Line Help, Other Utility Packages, Hardware and 
Operating System Access, Session Freeze and Restart, Manual with Examples expands to 
over 350 pages. Other UO-LISP products include: LISPTEX text formatter, LITTLE 
META translator writing system, RLISP high level language, NLARGE algebra system. 
Prices vary with configurations beyond (BLS.1) please send for FREE catalog. 
LEARN LISP System (LLS.1): Complete with LISP Tutorial Guide, Editor Tutorial 
Guide, System Manual with Examples, Full LISP Interpreter, On-Line Help and other 
Utilities. LEARN LISP fundamentals and programming techniques rapidly and effectively. 
This system does not permit expansion to include the compiler and other products listed 
above. 

LISP Tutorial Support (LTS.1): Includes LISP and Structure Editor Tutorial 
Guides, On-line Help, and History Loop. This option adds a valuable learning tool to the 
UO-LISP Programming Environment (BLS.1). Order (LTS.1) for $19.95. 

REQUIRES: UO.-LISP Products run on most Z80 computers with CP/M, TRSDOS or 
TRSDOS compatible operating systems. The 8086 version available soon. 

TO ORDER: Send Name, Address, Phone No., Computer Type, Disk Format Type, Package 
Pnce, 6.5% Tax (CA residents only), Ship & Handle fee of $3.00 inside U.S. & CN, $10 outside 
U.S., Check, Money Order, VISA and MasterCard accepted. With Credit Card include exp. date. 
Other configurations and products are ordered thru our FREE catalog. 


Northwest Computer Algorithms 
P.O. Box 90995, Long Beach, CA 90809 (213) 426-1893 
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le f ‘S Mouse Ar ound Lis ting (Listing Continued, text begins on page 74) 


cursor2[1,14]:=$0000; 
cursor2[1,15]:=$0000; 


background: =Blue; 

palettenum:=2; 

color:=3; 

GraphColorMode; 

GraphBackground(background); {Medium resolution graphics - Blue background} 
Palette(palettenum); 

eraser:=false; 

exit:=false; 


ml:=0; 

mouse(ml ,m2,m3,m4); {Reset mouse} 

ml:=1; 

mouse(ml ,m2,m3,m4); {Show cursor} 

ml: =9; 

m2:=7; {Horizontal hot spot} 


m3: =4; {Vertical hot spot} 
m:=ofs(cursor1[0,0]); 
esreg:=seg(cursorl[0,0]); {Set pointer to cursor definition} 


mouse(ml ,m2,m3,m4); {Set graphics cursor} 
oldx:=160; {Center of screen} 
oldy:=100; 

gotoxy(1,1); 

write(' Let''s Mouse Around '); 
gotoxy(1,23); 

write('Back [] Palette [] Color [] Eraser []'); 
gotoxy(1,24); 


write(‘Quit [] Clear []'); 

draw(0,10,319,10,3); 

draw(319,10,319,169,3); 

draw(319,169,0,169,3); 

draw(0,169,0,10,3); 

GraphWindow(1,0,317,168); {Limit drawing window} 
end; {initialize} 


procedure changeback; 

begin 
background: =background+l; 
if background>15 then background: =0; 
GraphBackground( background); 
delay(300); 

end; 


procedure changepalette; 
begin 
palettenum:=palettenum1; 
if palettenum>3 then palettenum:=0; 
palette(palettenum); 
delay(300); 
end; 


procedure changecolor; 
begin 
color:=color+tl; 
if color>3 then color:=0; 
delay(300); 
end; 


procedure makeeraser; 
begin 
if eraser then 
begin 
ml: =9; 
m2:=7; {Horizontal hot spot} 
m3:=4; {Vertical hot spot} 
m:=ofs(cursor1[0,0]); 
esreg:=seg(cursorl[0,0]); {Set pointer to cursor definition} 
mouse(ml ,m2,m3 ,m4); {Set graphics cursor} 
end 
else 
begin 
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ml: =9; 
m2:=1; {Horizontal hot spot} 
m3:=1; {Vertical hot spot} 
m4: =ofs(cursor2[0,0]); 
esreg:=seg(cursor2[0,0]); {Set pointer to cursor definition} 
mouse(ml ,m2,m3,m4); {Set graphics cursor) 

end; » 

eraser:=not eraser; 

delay (300); 

end; 


procedure checkoption; 
begin | 
if m2 <> 0 then 
begin 
‘ if ((m4 > 175) and (m4 < 183)) then 
begin a =a | 
if ((m3 > 81) and (m3 < 103)) then changeback; 
if ((m3 > 273) and (m3 < 295)) then changepalette; 
if ((m3 > 433) and (m3 < 455)) then changecolor; 
if ((m3 > 609) and (m3 < 631)) then makeeraser; 
end; 
if ((m4 > 183) and (m < 191)) then 
begin 7 
if ((m3 > 81) and (m3 < 103)) then exit:=true; 
if ((m3 > 273) and (m3 < 295)) then initialize; 
end; 
end; 
end; 


begin 
initialize; 
while not (keypressed or exit) do {Exit when any key is pressed} 
begin 
ml: =2; 
Fee HR ee {Hide cursor} 
ml: =3; 
mouse(ml,m2,m3,m4); {Get mouse position} : 
{ if m2 <> 0 then begin gotoxy(1,1);write(m3,' °,m4,' ‘); end; } 
-f ((m4<11) or (m4>175)) then checkoption else 
egin 
ae div 2; {In medium resolution, x coord. must be divided by 2} 
y:=™, 
if m2 <> O then 
begin 
if eraser then 
begin 
for i:=0 to 7 do draw(xti,y,x+i,y+8,0); 
end 
else 
begin 
Dik a lint ugee me {Draw when mouse button is pressed} 
end; 
end; 
end; 
oldx:=x; 
oldy:=y; {Update old x/y values} 
ml: =1; 
— mouse{ml ,m2 ,m3 ,m4 ) ; {Show cursor} 
end; 
TextMode(c80); 
end. End Listing 
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Turbo Toolbox, Version 1.0 

Company: Borland International, 
4113 Scotts Valley Drive, 
Scotts Valley, CA 95066 

Operating System: CP/M-80, CP/ 
M-86, MSDOS, PCDOS 

Price: $49.95 

Circle Reader Service No. 143 

Reviewed by Karl R. Kachigan 


The Turbo Toolbox by Borland for 
users of Turbo Pascal can reduce de- 
velopment time and improve the por- 
tability of your code. It includes three 
tools: Turbo-Access, Turbo-Sort, and 
GINST. Turbo-Access is a data-filing 
system using B-trees that allows you 
rapid access to large amounts of data. 
Turbo-Sort is a data-sorting system 
that uses the Quicksort algorithm. 
GINST generates a general terminal 
installation program much like 
TINST for Turbo Pascal. The only re- 
striction on the tools is that they are 
compatible only with Turbo Pascal, 
version 2.0 (or higher). 

After using all the tools, I can com- 
fortably say that any user of Turbo 
Pascal should be able to use these 
tools and find them helpful. At first, I 
expected the Turbo-Access system to 
be too complex for all but the most 
advanced programmers, but I now 
believe that even novice program- 
mers can manage it once they go 
through the sample programs. 
GINST will be a great help to soft- 
ware developers who would like their 
programs to use Turbo’s screen con- 
trol features on any terminal. 

The Toolbox is one disk containing 
16 files, 10 of which are “toolbox” 
files and 6 sample programs or data 
files. Source code is provided for all 
tools and programs except the 
GINST-related files. GINST is the 
only compiled tool, probably because 
it modifies the Turbo Pascal runtime 
code. The 102-page typeset manual is 
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much better than the Turbo Pascal, 
version 2.0 manuals—TI found fewer 
typos and errors. 

At $49.95, the Turbo Toolbox is 
less of a bargain than Turbo Pascal, 
but once you use one of the tools, you 
probably will find it worth the price. 
It is available on the same operating 
systems as Turbo Pascal: CP/M-80, 
CP/M-86, MSDOS, and PCDOS. In 
fact, I suspect that there is little or no 
difference between the MSDOS and 
PCDOS versions; they ran comfort- 
ably on both my HP-150 and IBM 
PC. I didn’t test the CP/M versions, 
but because the manual makes no 
distinctions in the Toolbox’s perfor- 
mance on different systems, I assume 
they function much the same as the 
MSDOS/PCDOS version. 

These tools appear to be useful for 
both the hobbyist and the software 
distributor. Borland graciously has al- 
lowed developers to distribute and/or 
sell programs whose object code in- 
cludes source code from Turbo-Ac- 
cess, Turbo-Sort, and the terminal in- 
stallation program generated by 
GINST and to paraphrase the installa- 
tion section from the Turbo Pascal 
reference manual when writing their 
documentation. 


Turbo-Access 
I’m not sure how many times I’ve had 
to create a data base to handle a lot of 
information, then had to add the nec- 
essary routines to find, add, delete, 
edit, and list the elements. Turbo-Ac- 
cess, a data base system that you can 
incorporate into your programs, is 
composed of four source files: AC- 
CESS.BOX, GETKEY.BOX, ADD- 
KEY.BOX, and DELKEY.BOX. These 
let you quickly create a good-sized, 
custom data base. 

My initial fears that only an expe- 
rienced programmer need delve into 
Turbo-Access arose when phrases 





like B-trees, index files, keys, pages, 
and tree height popped up in the tu- 
torial section. The manual, however, 
explicitly states that you don’t need 
to know how B-trees work—just how 
to use them. The tutorial gives a nice 
Overview on B-trees, an approach 
that uses keys to find elements in its 
data base. 

Turbo-Access is really an indexed 
sequential access method (ISAM) 
data base. For those unfamiliar with 
B-trees or ISAMs, these methods or- 
ganize data in a manner that sepa- 
rately stores a unique key (like your 
street address) so that accessing for a 
specific element requires only a few 
searches of the key directory. This is 
a fast, efficient way to access an item 
from a large data base. In addition to 
your data file, you generate an index 
file that includes the keys organized 
in whatever manner you wish to treat 
the data. For example, if you want to 
create a mailing list, you could use an 
alphabetical list of the last names as 
your key. Or you may want to catego- 
rize these addresses by state or zip 
code—these too could be keys. 

Just what is involved in using Tur- 
bo-Access? Of the four separate 
source files, you always must include 
ACCESS. BOx; it contains all the pro- 
cedures and data structures to set up 
and maintain the data files and index 
files. You may include or omit the 
other three files as long as ACCESS- 
-BOX comes first. GETKEY.BOX pro- 
vides the searching routines for the 
keys in the index files and the data in 
the data files. ADDKEY.BOX lets you 
add keys and data to the index/data 
files, and DELKEY.BOX lets you de- 
lete keys and data from these files. 

To start using Turbo-Access, first 
define a record that contains all the 
information you wish to store per ele- 
ment in your data base. By structur- 
ing your record to include several 
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items, you can use any of those items 
as keys in indexing your data. The 
key, limited to less than 256 charac- 
ters, must be a string. Once you have 
defined this record, decide how much 
data you’ll need to store and what 
you want your keys to look like. This 
will help you determine the constants 
that Turbo-Access will need to set up 
its data base. The six constants are 
data record size, key length, page 
size, order, page stack size, and max 
tree height. You’ve already figured 
out the first two. You simply guess 
the page size and page stack, given 
typical operating ranges for these. 
Order is half the page size, and you 
can compute max tree height easily, 
given the above numbers. I was sur- 
prised to see how little effort was 
needed here after you assume the 
suggested ballpark figures. 

Finally, determine what you want 
to do with your data. You probably 
will want a complete program to find, 
add, delete, edit, and list the data; the 
sample programs for each of these 
tasks should get you going. The man- 
ual suggests that you include in your 
data record an integer variable that 
you can use for status. When your 
program stores a data element, you 
can set this status value to distinguish 
the element later from a deleted or 
unused element. This is helpful for 
recreating an index file that is cor- 
rupt—the manual even gives an ex- 
ample of how to do this. Corruption 
of index files is the biggest problem 
with ISAMs, so following this sugges- 
tion is a good idea. 

The sample program BTREE.PAS 
is a fairly extensive mailing list pro- 
gram. It includes the capabilities of 
finding, adding, editing, deleting, and 
listing the data, with a nice menu- 
driven entry mode and function selec- 
tion. BTREE.PAS nicely demon- 
strates the power of Turbo-Access. It 
is more extensive in scope than the 
sample programs that demonstrate 
the separate tasks of creating an in- 
dex /data file and finding, adding, de- 
leting, and listing the data. After I 
used these simple examples to put to- 
gether my own little data base, the 
BTREE.PAS example showed me 
some nice enhancements. 

What are the limitations of Turbo- 
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Access? First, if you need to include 
all of your source files, it takes a while 
to compile. Second, be prepared while 
debugging your program to know 
what compiler directives the B-tree 
modules have set. Third, although a 
boolean variable ‘“‘ok” is set after 
many operations to determine if a task 
was successful, if the task fails, you 
have little indication as to why. Any 
error that Turbo-Access can’t handle 
becomes a fatal error and bombs you 
out of your program; you are left with 
only an indication of the error code, 
record number, and filename, gener- 
ated by the TAiocheck routine. I sus- 






possible! 





If you’re a C language 
programmer whose patience is 






your valuable time programming 





waiting for slow compilers, who 
just wants to work fast, then it’s 







BDS C features include: 





e Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/Z80 CP/M command 







interactively displays both local and 
external variables by name and 
proper type. 







Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 










Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 










In addition, BDS C’s speed of 


compilation was almost twice as 


















CP/M-80 C Programmers ... 


Save time 


_.. with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


wearing thin, who wants to spend 


instead of twiddling your thumbs 


user's manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
the seasoned professional. 


ern ae 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


“I recommend both the 
and the implementation 
by BDS very highly.” 


“... a superior buy...” 
Van Court Hare 
in Lifelines/The Software 
Magazine 





pect you could modify this routine to 
create a global error number that 
could be tested. However, it would be 
nice if the error code tests available in 
Turbo-Sort were available here so 
that the programmer could handle 
some of the disk-related errors (e.g., 
disk full or write-protected ). 

Fourth, the MakeFile routines 
used to create index and data files de- 
stroy any existing files that are using 
the same filenames. If you want to 
test automatically whether index and 
data files already exist, you must try 
to open them first. Finally, should 
you wish to use duplicate keys (and 








time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


a Tn 


e A 120-function library written in both 9° An attractive selection of sample 
C and assembly language with full 
source code. 


programs, including MODEM- 
compatible telecommunications, 


files. CPIM system utilities, games and 
* A comprehensive debugger that Plus... ‘sei 
traces program execution and e A thorough, easy-to-read, 181-page 


e A nationwide BDS C User's Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 





Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8" SSSD disks, 
181-page manual): $150 


Tim Pugh, Jr. Free shipping on prepaid orders inside 
BYTE Magazine placed BDS in Infoworld USA. 
C ahead of fh aspen Cc “Performance: Excellent. VISA/MC, COD’s, rush orders accepted. 
; Documentation: Excellent. Call for information on other disk 
compilers tested for fastest ' “i , : 
: F . Ease of Use: Excellent. ormats. 
object-code execution with all InfoWorld 
available speed-up options in use. Software Report Card BDS C is designed for use with CP/M-80 


operating systems, version 2.2. or higher. It is 
not currently available for CP/M-86 or MS- 
DOS. 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 


Circle no. 12 on reader service card. 
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F77L LCS-FORTRAN 
FOR IBM/PC CHALLENGES 
SOFTWARE GOLIATHS 
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When you have the superior product you 
can take on (and beat!) the big guys. 


Up until now FORTRAN programmers 
have had to get by with ponderous and 
incomplete Language Systems that never 
fully meet their needs or expectations. 
With F77L Lahey Computer Systems 
resolves this situation. F77L is a com- 
plete ANSI 77 Standard FORTRAN Lan- 
guage System with fast compile speed 
and productivity-enhancing diagnostics. 

If you need a FORTRAN Language 
System, don’t go to a Goliath who just 
happens to carry a FORTRAN product: 
call LCS, the company with the superior 
product. 

Here are a few of the many reasons to 
buy F77L: 

e Full FORTRAN 77 Language with popular 
extensions. 


e Fast, compiles 100s of statements/minute 
(PC/XT). 

e Numerous, specific English language 

diagnostics displayed during compilation. 

Command Line compiler options. 


Execution error traceback: program unit & line 
number. bie er 


e Optional protection for constants, bonds, 
interfaces. 


e Standard or Free Format source files. 
e Lattice C compatibility. 
¢ Optimized code or high-speed execution. 


a 




































interfaces to Lattice C and Assembly language. 
If you are tired of betting on the software 
Goliaths, and losing, callLCS the FORTRAN 
SPECIALIST—ask for David. 
$477 for complete Package. 
Requires: 256K/8087 
FORTRAN IS OUR FORTE 


Rancho Palos Verdes, CA 90274 
213/541-1200 


Serving the FORTRAN Community since 1969. 


IBM is a trademark of IBM Corporation 
Lattice C is a trademark of Lattice, Inc. 


Circle no. 54 on reader service card. 
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e Easy to use manual includes appendices on. 


Lahey Computer Systems, Inc. 
31244 Palos Verdes Drive West, 
Suite #243 





you can instruct the Turbo-Access 
routines to do this), you must do ad- 
ditional searches to find the data you 
may want. Hence, unique keys will 
simplify your data base searches. 


Turbo-Sort 

Many times I’ve needed to sort a list 
of items, whether numbers or strings, 
in descending or ascending order. 
Turbo-Sort provides a simple, effi- 
cient method to do so. It uses the 
Quicksort algorithm, a faster ap- 
proach than the time-honored bubble 
sort. It allows you to sort data from 
disk and/or memory and to send the 
results to disk and/or memory. Why 
is it so flexible? You get to write the 
input and output processing proce- 
dures, plus the procedure that deter- 
mines the sort priority. 

Turbo-Sort is composed of three 
parts: input, sort, and output. Bor- 
land provides the code to sort, while 
you provide (1) the input procedure 
Inp that puts the data into the sort 
processing memory, (2) the output 
procedure Outp that takes the sorted 
data and puts it somewhere else, and 
(3) the less function Less that deter- 
mines if one element is less than an- 
other element. This sounds like a lot, 
but by copying the sample programs, 
you'll quickly be up and running. 

The Inp procedure takes the data 
you wish to sort and puts it into sort 
memory. Turbo-Sort uses all of the 
existing heap space to store your data. 
If there is insufficient heap space (the 
program can sort up to 32,767 ele- 
ments), Turbo-Sort does a virtual 
memory operation and partitions 
some of the data to disk. If your pro- 
gram uses the heap, it must allocate 
enough heap space for itself before 
you enter Turbo-Sort. The minimum 
amount of memory needed to sort is 
three times the item size (in bytes) or 
three times 128 bytes, whichever is 
greater—this isn’t much space. TheInp 
and Outp procedures, in essence,take 
or get your data from the sort heap, 
which is managed by TurboSort. 

The nice thing about being in con- 
trol of the Less procedure is that you 
can sort on multiple keys, sort any 
type of item (numeric or alphabetic), 
and sort in ascending or descending 
order. The sample programs show de- 


scending sorts on numbers (i.e., quan- 
tity of an item, stock number, etc.). 
You can get ascending sorts by chang- 
ing the < sign to > and recompiling. 
Likewise, if you wish to sort a data list 
in several different ways—say, by 
quantity then by name—you can fol- 
low the multiple key sample program 
and structure the Less procedure with 
a case statement. One thing to beware 
of: Turbo-Sort does require that each 
element of your data be at least two 
bytes long. 

To use Turbo-Sort, you simply in- 
clude the SORT.BOX file when com- 
piling your program. Turbo-Sort for- 
ward declares the Inp and Outp 
procedures and the Less function. 
Should any errors occur, Turbo-Sort 
returns an error number indicating 
what is wrong. Of the six error codes, 
two give you disk-related errors indi- 
cating a read error or a file create er- 
ror. This is much like the IoResult 
function of Pascal that lets you trap 
system errors. As mentioned before, I 
wish the Turbo-Access system had 
provided this. 






















GINST 

This tool generates a terminal instal- 
lation program; it isn’t the installa- 
tion program itself. It needs to know 
the name of your program so that it 
can patch the proper disk file. GINST 
produces three files: a code file, a 
data file, and a message file. Using 
this tool is simple. GINST asks you 
for your program name, then the 
name you want for the terminal in- 
stallation program. That’s it. To cus- 
tomize your program for a new ter- 
minal, just run your terminal 
installation program. 

When running your terminal instal- 
lation program, you’ll notice that it 
looks similar to Turbo Pascal’s TINST 
program. You select the terminal to 
use from a list, then have your code 
updated to reflect the cursor control 
sequences and screen editing com- 
mands of that specific terminal. You 
can also modify the cursor control and 
screen editing sequences, add new ter- 
minal definitions to the list, and delete 
selections from the list. 

Although I heartily approve of this 
new tool, I do have a few complaints. 
First, Borland has provided an IN- 
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STALL.DOC text file that is similar 
to the step-by-step installation of the 
Turbo Pascal manual for use in your 
own manual or for distribution with 
your software. Unfortunately, the 
text is riddled with typos—as if some- 
one hastily transcribed the instruc- 
tions from the manual to disk but did 
no spelling checks. Second, GINST 
will not let you abort during the 
prompt asking for the new name of 
your installation program. It would 
be nice if a control-C were acknowl- 
edged here. 

Third, on the MSDOS/PCDOS ver- 
sion, I couldn’t make a program and 
its new installation program work on 
both my MSDOS machine and my 
IBM PC. If I compiled a program on 
my MSDOS machine then generated 
an installation program, it would 
work fine on that machine. But when 
I ported both object code files and the 
data files to my IBM PC and tried to 
run the installation program, oops! no 
IBM PC installation menu—yust the 
MSDOS terminal selections. Howev- 
er, if I recompiled only my main pro- 
gram on the IBM PC then ran the in- 
stallation program, voila! the IBM PC 
monitor selections appear. Obvious- 
ly, GINST inspects some part of the 
Turbo Pascal runtime module to de- 
termine what compiler (MSDOS or 
PCDOS) was used then uses the ap- 
propriate terminal selections. It sure 
would be nice to have one object file 
portable to both the IBM’s screen and 
a normal terminal on an MSDOS ma- 
chine. I suspect, with the appropriate 
ANSLSYS file under PCDOS 2.0 (or 
higher), I could add the IBM to my 
MSDOS terminal list, but that’s not 
clean. That solution also doesn’t do 
much for me if I’m still running 
PCDOS 1.1. Oh, well! 

Finally, it would be nice to custom- 
ize the GINST terminal data file for 
the terminals I want before I run it 
and generate my custom installation 
program. Unfortunately, if your fa- 
vorite terminal (like my HP-150) 
doesn’t appear on GINST’s data file, 
you must add it to every installation 
program you generate. 


Summary 


As I mentioned at the start, many of 
us can use these tools. In general, I 
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@ sets you FREE! 


Z — yes! Synergistic combination of ZCPR3 and ZRDOS2 produces 
flexible state-of-the-art Z80 operating system with tremendous produc- 
tivity features. 


Z-System consists of software modules, dynamic loading segments, 
and tools permitting optimum computer usage ranging from produc- 
tion program development to turnkey, password-controlled, end-user 
installations. Facilities include: multiple commands per line, file search 
paths, named directories, 1/O redirection, command flow control, 
screen-oriented menu generators, complete housekeeping file and 
directory management, shells, alias (scripts) and nested-alias genera- 
tion, and complete online help. 

Seventy-six support utilities, five tool packages, and two application 
programs available now! Fully upward compatible with CP/M-80. 

Z can now be purchased as auto-install program (Z-Com) or as 
manual-install ZCPR3 with semi-auto install ZRDOS package (Z- 
System). Our latest versions, to be released this year, support Zilog 
Z800 and Hitachi HD62801/64180 high-technology chips, chips run 
existing 8080 and Z80 programs! 

Echelon eight-bit operating systems written in Assembly Language, 
using linkable macro subroutine libraries, offer performance parallel- 
ing best single-user 16/32-bit microcomputer systems. 


1. Z-Com Full-up Z Operating System with input/output redirection 
running under CP/M-80, online command and utility documentation 
arid: Hl SYSTOIN osc. Seka Renkin bee kl Ceee one Seb eh ane nes $219.95 


2. Z-System Manual-install ZCPR3 and ZRDOS2Z, easily tailored by 
programmer to custom needs; source code to core and utilities; similar 
Rey Met Fo va ahs. Gag Sewn Wa oo 2k ee hg aul hi aca $199.95 


3. Z-Tools Four software development system packages permitting 
advanced, structured program design, macro relocating assembler, 
linking loader, librarian, cross-reference generator, debugger, mne- 
monic and pseudo-op translators, and interactive disassembler. Super 
$315.00 package ValUC ....... cee eee ee cece eee e ence eees $200.00 


4. DSD Dynamic Screen Debugger offers high-level features never 
before found in microcomputers; simultaneous display of dual-memory 
segments, stack, cpu states, and flags, with software In-Circuit- 
PEAT 2h oy Pe bee ba haw elton e ce ary Se ay oreo $149.00 


5. The Libraries Linkable ZCPR3 libraries (Vlib, Z3lib, and Syslib3) 
of over 400 subroutines used for Assembly Language program writing. 
Simplifies structured, efficient code production; online help system 
and full source code provided ...........cc eee eee eee eees $45.00 
Syslib3 alone ......... 2. cece cece eee eee e eee eneeeeees $29.00 


6. Term3 New generation communication program permits menu 
control of computer/modem operations between operator and time- 
share services, bulletin-boards and other remote computer systems, 


auto-answer to command-line prompt .........eeeeeeeeees $99.00 
7. Discat Fancy file and disk catalog program running under Z- 
System, menu driven and easily customized by operator..... $49.00 


Fortnighter newsletter, 24-hour BBS Z2-Node System keep Z users 
informed of microcomputer happenings. Write or call for brochure or 
order now! State disk format desired; add $3.00 shipping & handling; 
Californians please add 6-1/2% sales tax. Visa/MC, check, money or 
purchase order accepted. (Program names are trademarks of their 
respective owners.) 


Echelon, Inc. 


101 First Street @ Los Altos, California 94022 @ 415/948-3820 
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found Turbo Toolbox fairly bug free 
and quite usable, except for the prob- 
lems noted. The folks at Borland have 
produced another decent product. 


SPSS/PC 
Company: SPSS, Inc., 444 N. 
Michigan Ave., Chicago, IL 
60611 

Computer: IBM PC/XT, AT,, and 
compatibles 

Price: $795.00 

Circle Reader Service No. xx 

Reviewed by Dr. Steven Anthony 

Sola 


Even before buying my microcom- 
puter, I dreamed of having a minia- 
ture megalith of an IBM 370 on my 
desk, at my command, and totally 
within my grasp. I wanted it all: every 
interesting language, every systems 
tool, and especially the big number- 
crunching programs like SPSS or 
BMDP. The operating systems, the 
languages, and the applications are 
here, and now SPSS/PC has arrived. 
But I have a new concern: How good 
is this micro product? 

For many years now, Statistical 
Programs for the Social Sciences 
(SPSS) has been the standard pack- 
age that most graduate students have 
used with mainframe resources to an- 
alyze their thesis or dissertation data. 
Although it has competition from 
BMDP and SAS, SPSS is more than 
holding its own. For example, in the 
corporate environment as represent- 
ed by the annual Datamation survey 
of mainframe applications packages 
(March 1984), the SPSS batch SyS- 
tem scored better than its group aver- 
age in all categories. Perhaps the best 
test of quality is a measure of the pro- 
gram’s reliability and validity. Can it 
be trusted to process the data of a 
thesis or a dissertation? 

Through the kind cooperation of an 
associate, Dr. Jilisa Snyder, we were 
able to evaluate the SPSS/PC micro 
product directly against the SPSS 
mainframe version running at the 
State University of New York at Al- 





Copyright © 1984 by Dr. Steven An- 
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bany. First, we ran Jilisa’s dissertation 
using an IBM PC as a terminal under 
the control of PC TALK III, uploading 
the data, interactively running the 
SPSS mainframe programs, and final- 
ly downloading the results. We then 
took samples of the most arduous sta- 
tistical procedures found in the disser- 
tation and attempted to run them us- 
ing the SPSS/PC micro product. The 
control language required only minor 
adjustment, and all programs ran 
without mishap. Finally, we compared 
the output of each package using side- 
by-side windows 

The results were spectacular and 
reassuring: out of over 156K of out- 
put examined, results were identical 
in every important detail to the main- 
frame version. Not only were the re- 
sults accurate to their scientific preci- 
sion, but they were exact even in their 
final imprecise digits to the main- 
frame version! The only exceptions 
occurred in the numeric representa- 
tion of data plots, where the micro 
version rounded more accurately 
than the mainframe version. Basing 
Our opinion on this excellent level of 
performance, we are reasonably as- 
sured that the SPSS/PC system is at 
least as valid and reliable as the SPSS 
mainframe version. 

Of course, this conclusion must be 
tempered by a caveat. We assessed 
only a small proportion of the many 
possible procedures in the SPSS pack- 
age, principally the multiple regres- 
sion and stepwise multiple regression 
procedures. On the other hand, the 
data used was all too real! It contained 
numerous missing values, not only in 
the independent variables but also in 
the dependent variables. The subsam- 
ples were unequal in size and dispro- 
portionate. In short, the data was the 
messy and ill-behaved sort so typical 
of the social and behavioral sciences. 

Is it possible to run all of the main- 
frame package on the micro? Unfor- 
tunately, no. SPSS/PC has been tai- 
lored or, more accurately, truncated. 
The most serious omission is any 
form of multivariate analysis of vari- 
ance; the MANOVA procedure is 
missing. True, the complete univar- 
iate analysis of variance procedure 
ANOVA is present, but this proce- 
dure is far from sophisticated. Other 


procedures that compare groups are 
acceptable as far as they go, but 
MEANS, ONEWAY, and T-TEST 
simply can’t compare with MANOVA 
in power and flexibility. Also missing 
is any form of canonical correlation, 
discriminant analysis, logistic regres- 
sion, or time series analysis. 

On the other hand, simple descrip- 
tive data analyses providing means, 
standard deviations, and the like, in- 
cluding plots, are well provided. Par- 
ticularly noteworthy is the excellent 
implementation of cross-tabulation 
and hierarchical log-linear models for 
multi-way contingency tables. Al- 
though the provision for pearson cor- 
relation and nonparametric statistical 
techniques is adequate, there is no 
provision for rank-order correlation 
nor for partial correlation analysis. A 
hierarchical cluster analysis is nicely 
done, but the cluster memberships 
cannot be saved. This failure to save 
also plagues the factor scores in an 
otherwise exemplary procedure of 
FACTOR. Similarly, casewise residu- 
al scores cannot be written out in the 
multiple regression procedure. 

Such truncation is unwarranted in 
this otherwise excellent product. The 
total number of variables is limited to 
200. The total number of cases osten- 
sibly is unlimited but, in fact, is limit- 
ed by an overall maximum of 64K 
workspace for data. When I enquired 
as to why this might be so, the folks at 
SPSS muttered some mumbo-jumbo 
about the limitations of the current 
crop of Fortran compilers for the 
8088. Come come, fellows! It should 
be possible to overcome this 64K 
curse. As an additional footnote, 
SPSS/PC uses the Microsoft Fortran 
compiler. While SPSS/PC makes use 
of a lot of overlays, it requires at least 
320K and uses a maximum of 384K. 
Surely using another 256K of avail- 
able storage on the IBM PC wouldn’t 
hurt. It appears that SPSS is not tak- 
ing full advantage of the IBM PC’s 
resources, and that further optimiza- 
tion may lead to a better product. 

Although it is possible to run 
SPSS/PC without an 8087 numeric 
coprocessor, it is silly to do so. After 
shelling out $795 for SPSS/PC, not 
spending the additional $200 or so for 
the coprocessor, which greatly speeds 
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things along, just isn’t sensible. A 
hard disk is a requirement, not only 
for the procedures themselves and as- 
sociated files, which take up approxi- 
mately 3200K, but also for the tem- 
porary files used during a program 
run. 

Transferring data out of SPSS/PC 
in the form of reports is helped along 
by a report writer; however, the line 
length is limited to 132 columns, and 
there is no printer configuration file 
to customize it or any of the save 
commands to your printer. Transfer- 
ring files between a mainframe and 
SPSS/PC is greatly facilitated by 
KERMIT, a neat little data link in- 
cluded with the package. KERMIT 
can transfer some types of system 
files with error checking, as well as 
data files. Transferring files between 
your favorite spreadsheet, data base 
manager, or word processor and 
SPSS/PC is smooth as long as plain 
vanilla ASCII is your favorite flavor. 
If you have more exotic tastes, you 
will need to know how to cook in a 
programming language. Unfortu- 
nately, SPSS/PC provides no recipes 
for interfacing with their SPSS sys- 
tems files. 

SPSS/PC does provide the most 
elaborate, comprehensive, well 
thought out, and usable documenta- 
tion available anywhere, mainframe 
or micro! The SPSS/PC documenta- 
tion is specific to the micro user, and 
the built-in statistics guide is easy to 
follow and genuinely useful. Illustra- 
tions, examples, and reference mate- 
rial on each command and procedure 
abound. The typeset documentation, 
which weighs in at several pounds, is 
well organized, indexed, and reads 


ters, well, you had better enjoy typ- 
ing! It is possible to get a directory 
listing and to examine or erase a DOS 
file, but a general exit and return to 
the operating system doesn’t exist. 
The impact of this becomes more ap- 
parent when you realize that you 
must completely restart the whole 
package each time you use your fa- 
vorite word processor to edit some 
commands. 

Which brings us to the topic of the 
built-in copy protection and its insid- 
ious necessities. Every time you re- 
start the program, you must have the 
“key diskette” in drive A. This is bad 
enough, but the SPSS ghouls are not 
through with you! At unpredictable 
times, in the middle of a procedure, 
the thing looks for the key in drive A. 
Woe to the foolish users who do not 
replace the key within a few tries into 
drive A, for their systems will come 
crashing down! Whatever you used to 
have in drive A may have vanished 
into bit heaven. For the typical type 
of system hang induced by these 
fiends involves keeping drive A run- 
ning an infinite length of time. Can 
you use one of the bit copiers at least 
to provide yourself with some insur- 
ance? No, they don’t appear to work. 
Will SPSS provide you with a backup 
disk? No way. Be prepared to wait 
about a week and to shell out more 
money when your key goes belly up 
(and they all eventually do). No, this 
isn’t the middle of a nightmarish ad- 
venture game you’ve warped into— 
this is SPSS/PC’s copy protection! 
(While we are on the subject of warn- 
ings: don’t buy version 1.0. Version 
1.1 corrects a number of significant 
oversights, and it will cost you an ad- 


to fully answer your query. There is a 
mainframe-oriented users group but 
as yet no micro group. SPSS/PC will 
run on an IBM PC/XT, the AT, and 
on compatibles such as the Compaq, 
Tandy 2000, and TI Professional. 

SPSS /PC is good, and it has brought 
me closer to my dream of having that 
IBM 370 on my desk. SPSS/PC’s algo- 
rithms are fundamentally sound, it is 
finely crafted, and I would trust it to 
process a student’s thesis. You won’t 
find me in line to do batch processing 
nor cursing at the mainframe for being 
down again. I have my micro and I 
almost have it all! 


DD] 





ZAS 


Software 
Development Package 


‘The industry's most sophisticated development tool is 
now available for the Z-8000 and the Z-8 under 
CP/M, MDOS, andISIS. 


Includes: 

e ZAS Relocatable Macro Cross Assembler 
- 38 directives, nested macros, etc. 

e ZLK Task Builder/Linker 
- resolves CALR’s , section oriented 

e ZLD User-Modifiable Object Loader 

e ZEX Dual Processor Run-Time Support 

CP/M TM Digital Research 

MDOS TM Ms 
ISIS TM Intel Corp. 


ig Western War @S 


303-327-4898 
Box C e Norwood, CO 81423 
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PERFORMANCE ACCELERATORS 
FOR CP/M-80 & MP/M-80 


WSOPTION for WORDSTAR 3.0 & 3.3 (installs itself 


right into WordStar) 


FAST 
Speeds up action of WordStar functions so you spend 


less time waiting for WordStar to take action on your 


commands. 
PRODUCTIVE 


A superior print-while-edit capability is included. You 
can now use one terminal or micro to edit one file while 
printing another without reducing your typing speed! 


CONVENIENT 
At print time you can select 1 of 4 printers under CP/M 
or 1 of 8 printers under MP/M. Under MP/M you do a 
proper attach and detach of the printer so it is always 
free when you are not using it. You are informed if the 
printer is in use at print time so you do not hang up. 


easily. SPSS/PC comes with a nice tu- 
torial on disk, along with a demo pro- 
gram. As if this were not enough, 
SPSS/PC also provides instantly 
available on-screen help when run- 


ditional $100 to upgrade. ) 
Operationally, SPSS/PC purrs 
along like a kitten. It’s fun and amus- 
ing to play with, and it appears im- 
mune to fatal operator errors. With 





ning interactively. 

Yes, SPSS/PC can run interactive- 
ly, with each command and proce- 
dure executed when entered. Tradi- 
tional batch processing is also 
available. Unfortunately, SPSS/PC is 
severely hampered by the lack of an 
on-line editor. If you make a mistake, 
for example, in the middle of a long 
command line with many parame- 
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an 8087 installed, it is quite frisky. 
Speed is not a major problem. SPSS/ 
PC does what common sense and its 
manual says it will do, and it has been 
extensively debugged and carefully 
crafted. Support is provided by tele- 
phone during regular business hours 
(you pay the toll). Technical staff are 
knowledgeable, but you may have to 
wait 24 hours before they have time 


Many additional features installed via menu. 


MPMPLUS for MP/M-80 
A group of programs and modules designed to im- 


prove your console and disk response under MP/M-80. 
A performance increase of 2 to 3 times is usual for 


disk 1/0. 
Send $35.00 for each item plus $2.00 postage. 


INCLUDE DISK FORMAT REQUIRED 
Continuum Microsystems Ltd. 
21 McCarty Crescent or M.C. 
Markham, Ontario 
Canada L3P 4R4 
WordStar reg. MicroPro, CP/M MP/M reg. D.R.I. 
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Use your Visa 


(416) 294-8536 


THE SOFTWARE DESIGNER 






by Michael Swaine 


How do you design software for peo- 
ple rather than for the machine or for 
the programmer? How do you make 
the model inside the machine reflect 
the model in the user’s head? I cor- 
nered two programmers who think 
particularly hard about the intended 
users of software, and they talked 
about human factors in the process- 
ing of words and ideas. 

Dave Winer is the president of Liv- 
ing Videotext; he wrote ThinkTank, 
the outline processor. While he de- 
votes a lot of his time these days to 
meetings, budgets and strategic plan- 
ning, he says, “what I am, first and 
foremost, is somebody who designs 
software.” But he’s a software de- 
signer who uses his own products and 
listens to others who use them. 

Thom Hogan identifies himself 
here as a writer. As Editor-in-Chief 
of our sister magazine, Business Soft- 
ware, he’s that, but he’s also a pro- 
grammer. It’s his experience as a user 
of word-processing programs, 
though, that gave him his idea for ex- 
ponential cursor movement. 


Dave Winer: The first rule I try nev- 
er to break is that if you don’t use it 
yourself, it isn’t going to be an inter- 
esting product. A lot of software de- 
signers don’t use what they write. I 
guess we're fortunate in that our 
product, ThinkTank, is useful in a lot 
of different functions, so it’s easy for 
us to say that everybody in the com- 
pany uses the product. But you’ve got 
to use the product: we’ve modified 
ThinkTank many times over several 
years, and those modifications have 
been the result of heavy use of the 
product. Talk to any game designer 
about how he makes a game enter- 
taining and he’ll tell you the same 
thing: he plays the game himself, and 
he doesn’t stop until it’s entertaining 
for him. 
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The Model in the Machine and 
the Model in the Mind 


But it’s hard to put yourself in the 
user's frame of mind; you’ve got to 
continually cull out the things that 
make you too specialized. You have 
to work at seeing things the way a 
naive user sees them, and you have to 
know how to feel the little jolt when a 
program isn’t right. 

There’s a term we use: burning 
brain cells. Every time the program 
does something that you’re not ex- 
pecting it to do, every time it sur- 
prises you just a little, your suspen- 
sion of disbelief goes away. You’re no 
longer thinking of the problem that 
you re working on, but about why the 
program misbehaved that way. It’s 
that phenomenon of the software tak- 
ing you away from the task at hand 
that we call burning brain cells. 

The concept of suspension of disbe- 
lief is very important. In software just 
as in the movies or in fiction you have 
an audience, and you’re trying to ma- 
nipulate them, to influence their be- 
havior; initially with a program 
you re trying to relax the person and 
invite him to try things. The suspen- 
sion of disbelief develops as you draw 
the person in gradually: first he tries 
the cursor keys, say, and he finds that 
the cursor keys move the cursor; OK. 
Then what? Well, people make 
guesses; and you as a software de- 
signer have to try to anticipate their 
guesses. To a certain extent you do 
this on your own, but eventually 
you ve got to try it out on real people. 
We found with ThinkTank that after 
the cursor keys, people were reaching 
for the spacebar, so we used the spa- 
cebar to step through the command 
line. So you second-guess the user, 
and if you do a good job, you build up 
a certain amount of trust on the part 
of the user; then over time, if it is go- 
ing to be a successful experience for 
him, he will have suspended his disbe- 
lief. He’s now no longer thinking 





about the software, he’s thinking 
about the mechanics of the problem 
at hand. That’s the goal. 

One technique for getting there is 
not trying to force your structure on 
the user, but rather trying to get him 
to recognize his own structure in the 
machine. One of the reasons people 
like using computers is that it’s neat to 
crawl around in there and discover 
things. Well it’s neater if you’re crawl- 
ing around discovering things that you 
made rather than things that some 
guy in Cambridge made. We tried to 
capture a human structure in writing 
ThinkTank: categorizing and subcate- 
gorizing are very natural to the hu- 
man mind, even though the way 
ThinkTank does categorizing is very 
different from the way humans do it. 
We've listened to users and in the next 
release incorporated features like 
cloning and hoisting and the use of 
color, all things that make the model 
closer to the model the user has. 


Thom Hogan: |’m a writer. I spend 
a lot of time using word processors, 
and I’ve yet to find a word-processing 
program that doesn’t somehow inhib- 
it my writing and editing style. There 
are so many needed features of word 
processors that haven’t been imple- 
mented yet that I sometimes wonder 
what to call the software I do use. 
This brief note describes just one con- 
cept that has yet to be implemented 
in any word processor. 

Cursor control is out of control. I 
just got the latest whiz-bang word 
processor and I find that I can now 
move by character, by word, by 
phrase, by sentence, by paragraph, by 
block, by screen page, by actual page 
and by section. That’s a Jot of cursor 
keys. 

Moving around in a document, es- 
pecially a long one like a book or soft- 
ware manual, should not be a many- 
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THE PROGRAMMERS SHOP} 


helps compare, evaluate, find products. Straight answers for serious programmers. 
gta Free Literature - Compare Products 










+ Programmer's Referral List - Dealer's inquire cree 
~ Compare Products - Newsletter Evaluate products Compare competitors. Learn about new alternatives. One free call FASTER C - Lattice users eliminate Link 
- Help tind a Publisher ¢ Rush Order brings information on just about any programming need. Ask for any “Packet” or step. Normal 27 seconds, Faster C 


» Evaluation Literature free  - Over 700 products | “Addon Packet”: ADA, Modula CJ “Al” CIBASIC (“C” CCOBOL LD Editors in 13 secs. MSDOS 


» BULLETIN BOARD - 7 PM to 7 AM 617-826-4086 COFORTH CJFORTRAN CIJPASCAL CJUNIX/PC or ()Debuggers, Linkers, etc. 


ARTIFICIAL INTELLIGENCE C LANGUAGE FORTRAN LANGUAGE 






EXSYS - Expert System building INSTANT C - Interactive develop- RM/FORTRAN - Full’77, big arrays. 
tool. Full RAM, Probability, Why, ment - Edit, Source Debug, run. 8087, debugging, xref, MSDOS $525 
Intriguing, serious. © PCDOS $275| EdittoRun-3Secs. MSDOS $ 495) DR/Fortran-77 - full ANSI 77, 8087, 
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fingered thing. I don’t want to do 
nine kinds of multiple-key gymnas- 
tics, I don’t want to move my hand 
from the home row of keys to a cursor 
pad and I certainly don’t want to both 
move my hand from the home row 
and hold down multiple keys. 

The cursor-control diamond in 
WordStar is reasonably comfortable 
for us touch typists; I can Control-F 
and Control-A to move forward and 
backward a word at a time almost as 
fast as I can type, but then I’ve had 
several books worth of practice. But 
WordStar’s cursor controls are inade- 
quate for moving around quickly in a 
large document. Here’s a piece of user 
data: I find that I typically move 
screen page by screen page, then nar- 
row in on my prey using word-by- 
word moves, with maybe a few up and 
down arrows. With a word processor 
that makes good use of a mouse, I can 
effectively narrow in on a particular 


spot on a screen, but it’s less useful in | 


larger moves, and there’s still the issue 
of removing my hands from the home 
row. 

All of which leads up to my notion 
of exponential cursor control. I only 
want six cursor control keys: four to 
move one character at a time, up, 
down, right and left; and two addi- 
tional keys, a “power forward” and a 
“power backward” key. 

My definition of a “power” key is 
one that moves the cursor in a fixed 
direction through the file, but that in- 
creases its step size with repeated 
presses (or if you hold the key down 
long enough for autorepeat to start). 
There are several algorithms possible 
for a power key: 


Algorithm 1: time-dependent 
WHILE power key held down DO 
WHILE time down < 1 unit DO 
move cursor one word 
WEND 
WHILE | unit < time down < 
2 units DO 
move cursor one sentence 
WEND 
WHILE 2 units < time down < 
3 units DO 
move cursor one paragraph 
WEND 
WHILE 3 units < time down < 
4 units DO 
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move cursor one page 
WEND 
WEND 


Algorithm 2: context-dependent 
flag=1 
WHILE previous keypress was 
power key DO 
CASE OF flag = 
1: move one word 
test for boundary 
2: move one phrase 
test for boundary 
etc. 
ENDCASE 
WEND 


The test for boundary sets the value 
of flag dependent on whether or not 
we've moved across some arbitrarily 
defined boundaries during the move- 
ment of the cursor: 

phrase boundary: ,.)?!;: 

sentence boundary: . ? ! 

paragraph boundary: <cr><lIf> 
page boundary: 66 lines 

section boundary: section marker 
With either approach, the effect is 
the same: the longer the power key is 
repeated, the greater distance it 
moves and the greater is its speed of 
movement, although the first ap- 
proach requires that the user hold the 
power key down. Each approach has 
its advantages. The first allows you to 
lift your finger from the key momen- 
tarily to get your bearings and then 
restart at a slower cursor rate when 
you press the power key again. The 
second favors key tappers who use the 
rhythm of the keystrokes to reinforce 
what they’re doing. Both approaches 
require programs that give priority to 
redisplaying the cursor and screen 
contents, since power keys would 
make the program especially sensi- 
tive to the “‘understeer” and ‘“‘over- 
steer” problems that result from the 
display not keeping up with the cur- 
sor movement. 

I’ve described moves in terms of 
units that most matter to me these 
days: words, sentences, paragraphs. 
Program editors, though, could be 
configured to use boundaries that 
make sense for the language being 
used. Boundaries could be set at 
keywords, statement boundaries, loop 
structures and functions, for example, 


if one were editing C programs. Better 
yet, give me an editor that lets me pro- 
vide definitions for boundaries. 

One last request to word-process- 
ing programmers: please keep my fin- 
gers on the keys. Use the WordStar 
diamond and let Control-A and Con- 
trol-F be the power keys; I'll love it. I 
won't even object if you throw in 
screen-up and screen-down keys. 


Micro Subscribers Please 
Note: 


The Software Designer is a column 
devoted to the notion that the activity 
of programming engages one in a 
struggle with metaphors; that the 
only worthy goal in the struggle is to 
be a wielder of metaphors, a creator 
of metaphors, and not an unwitting 
tool of unexamined metaphors. 
That’s what, I claim, distinguishes a 
software designer from a mere pro- 
grammer: the software designer cre- 
ates new metaphors for the machine. 

A computer is, after all, a general 
purpose device, and that’s a pretty 
ethereal concept. What does a gener- 
al purpose device do? Well, it... 

You see the point. Just to tell our 
friends what we are doing with what 
used to be our spare time, or what we 
do for a living, we have to create met- 
aphors. All the metaphors are in fact 
just descriptions of software prod- 
ucts: the Mac’s metaphor is the desk- 
top and VisiCalc gave us the spread- 
sheet metaphor. And when the 
metaphor is implemented, the com- 
puter, the general purpose device, ac- 
quires a specific purpose, becomes, 
briefly, an electronic desktop or 
spreadsheet. It’s trivial to point out 
that the computer can do nothing un- 
til some programmer tells it what to 
do. But the computer is nothing until 
the software designer brings into the 
world a new metaphor, and with it a 
new intellectual tool. 
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If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch between different 
languages. 
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by Allen Holub 


The topic of this month’s column is 
sorting routines. We’ll look at how the 
sort routine given in Kernighan & 
Ritchie works and talk about why you 
shouldn’t use it. Then we’ll present a 
general purpose Quicksort routine, 
modeled after the Unix routine 
qsort( ). 


Shell Sort 
Many C programmers, when they 
need a sort routine, grab the one out 
of The C Programming Language (p. 
116). The routine works, it’s short, 
why not use it? There are several rea- 
sons: it’s not documented, it’s slow, 
and better routines are available. 
Some of the slowness comes from us- 
ing array indexes rather than point- 
ers (an array index usually causes a 
multiply, while incrementing a point- 
er is an addition). 
_ Unfortunately, the speed issue runs 
deeper. Just about every program- 
ming problem presents you with 
trade-offs, and sorting routines are 
worse than most in this respect. Not 
only are the usual considerations of 
code size versus efficiency a factor, 
but there are several possible ways to 
go about sorting an array, all of which 
behave differently. For example, with 
Quicksort, the time required to sort an 
array can change radically with the 
kind of data the routine is presented. 
You have to know how a sorting rou- 
tine works before you can make an in- 
telligent decision on whether to use it 
in a particular application. 

The routine in K&R is a Shell sort. 
I thought for years that Shell sort was 
named after a shell game; anyone 
who has sat down with the K&R code 
and tried to figure out what’s going 
on can understand how I came to this 
conclusion. As it turns out, the algo- 
rithm is named after its inventor, 
Donald Shell, who developed it in 
1959. A Shell sort works by breaking 
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up the sorting problem into a series of 
smaller problems. For example, a set 
of eight objects to be sorted is broken 
up into four subsets of two objects, 
each of which is sorted separately. 
The eight objects are then reorga- 
nized as two sets of four objects; 
again each is sorted separately. Fi- 
nally, the set is sorted as one set of 
eight objects. 

The rationale behind the Shell sort 
is that you get the more out-of-order 
parts of the original set into order 
very quickly. The array then is easier 
to sort on the next pass. What char- 
acterizes a Shell sort is the reorgani- 
zation into smaller sets. Although the 
algorithm used to actually sort the 
items in each subset is immaterial, 
the behavior of this algorithm should 
get better as the set it is working on 
gets closer to being in order. A bubble 
sort does this. In fact, you can look at 
Shell sort as an improved bubble sort. 

A concrete example may clarify 
the process. Let’s start with a set of 
eight objects: 

St Ta; Sys, Ah 
We break this up into four subsets 
consisting of the pairs {9,3}, {2,8}, 
{1,5}, and {7,4}: 

ae ae Teal ee es ee 


Then we sort each pair separately: 
Die hy ee ae 


Next we break up the set into two 
subsets of four elements, {3, 1, 9, 5} 
and {2, 4, 8, 7}: 

32 AA SB Se 7 


We then sort these separately: 


be VSR hoe 


Finally, we treat the input as one set 


of eight elements and just sort it: 
be Sees Te” 9 


Now, let’s look at the routine in 
K&R (a slightly modified version ap- 
pears in Listing One, page 94). The 
outermost for loop (line 6) deter- 
mines how many elements will be in 
each subset; “gap” is the distance in 
the array between two elements of 
the same subset. In the above exam- 
ple, the distance between 9 and 3 
(which compose the first subset) is 4; 
this would be the initial value of gap. 
Each time through this first for loop, 
we divide gap by two, which effec- 
tively doubles the number of ele- 
ments in a subset. 

The second and third for loops 
(line 7 and 8) are the actual sort rou- 
tine. The algorithm is essentially a 
bubble sort, although the situtation is 
complicated by sorting all of the sub- 
sets at the same time. You can best 
see how the sort works by reducing 
the algorithm to handle only the last 
case (i.e., gap = = 1) and reversing 
the sense of the compare. This is done 
in Figure | (page 91). 

In the innermost loop, the bubble 
sort scans along the unsorted array 
looking for two adjacent elements that 
are out of order. When it finds these 
elements, it exchanges them. In this 
way, an out-of-order element tends to 
“bubble” up to its correct place in the 
array. However, you have to do many 
comparisons and exchanges to get it 
there (worst case is an array already 
sorted but in reverse order; you have 
to make N-1 exchanges to get an out- 
of-place element from the right end of 
an N element array all the way to the 
left end). This inner loop must be exe- 
cuted enough times to guarantee that 
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all out-of-order elements find their 
way to the proper position in the ar- 
ray; therefore, a bubble sort will al- 
ways use O(n?) comparisons. In the 
worst case, it will need almost as many 
exchanges. No wonder the routine is 
slow. 

You can now see how the Shell sort 
strategy helps the bubble sort. It 
takes that pathologically out-of-place 
element and moves it to the front of 
the array in O(log N) exchanges, 
rather than in N—1 exchanges. You 
can improve the behavior of a Shell 
sort by fiddling with the increments 
between elements. This lets the vari- 
ous passes interact with each other in 
a more productive fashion. The incre- 


pivot (we will use the last element in 
this example). However, if the pivot 
happens to be the largest or smallest 
element of the array, then the behav- 
ior of Quicksort degrades dramati- 
cally (Quicksort becomes Slowsort). 
You can avoid this worst case scenar- 
io by taking the center element as the 


foi = 1-1 =< argc si + 4+) 


fon j= i= Uj == 07-4) _ 
:  if( stremp( argv{j], argv[j + 1] > O) 


pivot or, even better, by taking the 
median of three elements. This extra 
work will slow down the routine, but 
it’s worth it if you expect to be sorting 
already sorted files. 

(2) We will sort using two pointers 
called HIGH and LOW. To start sort- 
ing, make HIGH point at the next to 


exch( agv{j], argv[j + 1]) 


Figure 1 
Bubble Sort 


ments should not be even multiples of Initial Initial 

each other; powers of two are actual- ot, Sore a) ee 
ly among the worst increments. | nitial file: 100 110 30 10 160 120 13090 
Knuth has determined that a good | Looking: 80 100 110. 30 10 160 120 13090 
choice of increments is 1, 4, 13, 40, 80 20 100 110 30 10 160 120 13090 . 

121 .... He also says that the se- 80 20 100110 30 10 160 120 13090 
quence 1, 3, 7, 15, 31,... works well. 80 20 100110 30 10 160 120130 90 
Using this latter sequence of incre- 80 20 100110 30 10 160120 130 90 


80 20 
Istexchange: 80 20 


100110 30 10 160 
110 30 10 100160 


120 
120 


130 90 
130 90 


ments, a Shell sort will sort an N ele- 


ment array in O(N!) time. This is 
better than the O(N?) time required 
for a bubble sort but not much. If 
you re interested, the gory details of 
this analysis are in Knuth’s book The 
Art of Computer Programming, vol. 
3 (Addison Wesley, 1973) pages 84f. 


Quicksort 

In the general case, a faster sorting 
routine than the Shell sort is Quick- 
sort, developed by C. A. R. Hoare in 
1962. 

Quicksort, like the Shell sort, sorts 
an array in place; that is, it sorts by 
exchanging elements of an array 
rather than by copying. It works by 
selecting an arbitrary element of the 
array to be sorted (called the “‘piv- 
ot’) and moving that element to its 
proper position in the sorted array. 
As it is doing this, it arranges the ar- 
ray so that all elements to the left of 
the pivot are less than the pivot and 
all the elements to the right are great- 
er than the pivot. It then repeats this 
process recursively on the two halves 
of the array. It works as follows: 

(1) Select an arbitrary element of the 
array to be sorted (the pivot). It’s eas- 
iest just to lop off the last or first ele- 
ment of the array and use that as the 
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80 20 
80 20 
2ndexchange: 80 20 
80 20 
Pointers cross: 80 20 


Exchange pivot: 80 20 


110 30 
110 30 
10 30 110100 160 
10 30 110100 160 
10 rae ad oe: 160 


i f 
HIGH Pivot 


10 100 160 
10 100 160 


120 
120 
120 
120 
120 
LOW 


130 90 
130 90 
130 90 
130 90 
‘13090 


10 30 90100 160 120 130 10 
10 30] 


90 [100 160 120 130 110) 


HIGH Pivot 


LOW 


Figure 2 
Quicksort — 





Partitioned: {80 20 
oe 
_ LOW 
Given: 

typedef struct 
Im key, element!, element2, etc; 

} | 

ELEMENT; 


compare( el, e2 ) 
ELEMENT *e1, *e2: 


return( e1—>key — e2—->key ); 


} 
ELEMENT array| 10]; 


The array can be sorted with: 


qsort( array, 10, sizeof(ELEMENT), compare ); 


Figure 3 
Sorting an Array of Structures 
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last element of the array and LOW 
point to the first element (the last ele- 
ment is the pivot). 

(3) Move LOW towards the last ele- 
ment of the array. Stop when HIGH 
and LOW cross or when the object 


‘pointed to by LOW is greater than the 


pivot. 

(4) Move HIGH toward the first ele- 
ment of the array. Stop when HIGH 
and LOW cross or when the object 
pointed to by HIGH is /ess than the 
pivot. 

(5) If the two pointers have not 
crossed, exchange the objects pointed 
to by HIGH and LOW. 

(6) Repeat steps 3, 4, and 5 until the 
pointers cross. 

(7) Exchange the pivot and the object 
pointed to by LOW. This puts the piv- 
ot into its correct place in the array. 
(8) The array is now partitioned so 
that all elements to the left of the piv- 
ot are less than the pivot and all ele- 
ments to the right of the pivot are 
greater than the pivot. Repeat steps 
1-8 on these two partitions (not in- 
cluding the pivot in either partition) 
until the array size of all arrays is less 
than or equal to one. 

An example of the sorting process 
is given in Figure 2 (page 91). The 
objects pointed at by HIGH and LOW 
are underlined. For more information 
see The Art of Computer Program- 
ming, pages 114f. 

The biggest problem with Quick- 
sort is its sensitivity to the input data. 
Best case performance (when you al- 
ways select the median as the pivot) 
requires O(N log N) comparisons 
and O(1/6 log N) exchanges. This is 
quite a bit better than O(N2). The av- 
erage case performance is still pretty 
good: O(2 In 2) time slower than the 
best case. Worst case performance 
(when the pivot is the largest element 
in the array) is another matter. In 
this case, one partition is empty and 
the other contains the balance of the 
array (N-1). N (rather than log N) 
partitioning steps must be made, and 
the algorithm requires O( N2) time to 
sort the array. This time is no worse 
than that of the bubble sort, but it’s 
no better either. 

A general purpose Quicksort rou- 
tine is presented in Listing Two (page 
94). This routine, called qsort( ), 


works like the Unix routine of the 
same name. By “general purpose” | 
mean that you can use qsort(_ ) to sort 
arrays of anything. You can sort ar- 
rays of pointers, of integers, of struc- 
tures—of anything. The advantages 
of this versatility are obvious. The 
disadvantage is that qsort( ) will run 
slower than a routine tailored to a 
particular application. 

There are two other potential prob- 
lems with this particular implementa- 
tion of Quicksort: it chooses its pivot 
in an unintelligent way and it’s recur- 
sive. If you are likely to be sorting al- 
ready sorted lists, you should modify 
the pivot selection to take a median 
value rather than just grabbing the 
last element. Handling the recursion 
is trickier. I’ve tried to minimize the 
average case recursion nesting, but 
the worst case is still pretty bad. 

In particular, if you are sorting an 
already sorted array of N elements, 
there will be N—2 levels of recursion. 
Each level is passed two pointer-sized 
local variables on the stack. Assum- 
ing a 16-bit pointer, this yields eight 
bytes per level. The compiler will 
probably need a few other bytes for 
the return address and frame pointer, 
say, 12 bytes total (this is probably an 
underestimate). Sorting a 1024-ele- 
ment array would require about 12K 
of stack, not even counting the space 
needed for the array itself. The moral 
is to use this routine on small arrays. 
It’s fast but it eats memory. Best case 
recursion nesting will require log,N 
levels, which is better but still not 
good. If someone has an iterative ver- 
sion of Quicksort, send it to me. 

The versatility of qsort( ) comes 
from its not making any assumptions 
about the object being sorted. Its call- 
ing syntax Is: 


qsort( base, nel, width, compare ) 
char *base; 

int nel, width: 

int (*compare) ( ) 


“Base” is the base address of the ar- 
ray being sorted; it’s declared as a 
character pointer but actually can be 
a pointer to anything. “Nel” is the 
size of the array in elements (as com- 
pared to bytes). “Width” is the size 
of one element in bytes, and ‘‘com- 
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pare” is a pointer to a comparison 
routine. This comparison should be- 
have like stremp( ); that is, when 
called with 


(*compare) (a, b); 


where a and b are pointers to two ele- 
ments of the array, the comparison 
routine will return a negative number 
if a < b, zero if a = = b, and a posi- 
tive number if a > b. 

The main( ) routine in Listing Two 
(line 167) shows qsort being used to 
sort an array of character pointers. 
Figure 3 (page 91) shows it being 
used to sort an array of structures 
where the key field contains an inte- 
ger sort key. 

Qsort( ) itself (Listing Two, line 
40) is an access routine. The actual 
sorting is done by rqsort( ) (line 74), 
which is static to the module (i.e., it 
isn’t externally accessible). Qsort( ) 
first copies the two parameters that 
won't be modified (width and com- 
pare) into two global variables (line 
63; comp and width are declared on 
line 20). Passing them as parameters 
to rqsort( ) would just increase the 
stack usage and make the subroutine 
calling overhead higher. Both vari- 
ables are static, so you don’t have to 
worry about their names conflicting 
with other global variables in your 
program. I have deviated a little from 
the Unix qsort( ) by defining a de- 
fault comparison routine for sorting 
argv-like arrays of character point- 
ers. To use the default routine, set the 
compare argument to 0. The actual 
sorting is started by calling rqsort( ) 
(on line 66). 

Rqasort( ) is passed two parame- 
ters, “low” and “high” which point at 
the bottom and top elements of the 
array to be sorted. They have the 
same function as LOW and HIGH in 
the algorithm description. The local 
variable “pivot” is a pointer to the 
pivot (selected on line 91). Note that 
all the pointers are defined as charac- 
ter pointers. Because characters are 
of size 1, pointer arithmetic on a 
character pointer is plain arithmetic. 
We need to defeat pointer arithmetic 
because we don’t know the size of the 
object at compile time. Adding or 
subtracting width from the pointer 
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will advance it the correct number of 
bytes. The comparison routine has to 
know what’s being pointed to, but at 
this level we need only the size. 

The two while loops on lines 95 and 
97 are looking for out-of-place ele- 
ments, per steps 3 and 4 of the algo- 
rithm. Step 5, exchanging LOW and 
HIGH, is done on lines 99-110. 
Again, because we don’t know the ob- 
ject size in advance, we have to ex- 
change the two objects one byte at a 
time. We look for the pointers cross- 
ing at line 113. Step 7, the pivot ex- 


change, is done on lines 118-124. Be- 
cause an exchange is an expensive 
operation, “Low” and the pivot are 
exchanged only if necessary. On the 
other hand, the comparison itself 
takes time too, so you may want to 
pull it out of the code. 

The partitioning is done on line 
131. “‘Low” is advanced to exclude 
the pivot from both partitions (it’s al- 
ready in the correct place in the sort- 
ed array). Finally, step 8 (sorting the 
two partitions) is done on lines 131- 
145. Several tests are made here. The 
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test on line 132 determines which 
partition is smaller; the smaller parti- 
tion is sorted first. This practice tends 
to reduce the number of recursion 
levels. The tests on lines 134, 136, 
141, and 143 are looking for arrays 
with one or fewer elements in them; 
these arrays are already sorted. Most 
Quicksort algorithms put this test at 
the top of the algorithm, but this adds 
an additional level of recursion, and 
testing at the bottom doesn’t add all 
that much extra code. 


Conclusion 
So, there are two sorting routines. 
Which you should use depends on the 
application. If you expect to sort a lot 
of already sorted data, the Shell sort 
will work in O(N!-2) time while 
Quicksort needs O(N2). A Shell sort 
is also not the memory hog that 
Quicksort is. On the other hand, 
Quicksort is much faster on random- 
ly sorted input, even though it eats 
Stack space. 

The qsort( ) routine given here is 


more versatile than the shell sort( ) 
routine, but it shouldn’t be too hard 
to modify the latter to be as general 
purpose as qsort( ). Also, it’s not hard 
to strip the versatility out of qsort( ) 
if you don’t need it, improving its per- 
formance for a specific application. 

I'd like to end this month with a 
request. If you have working C imple- 
mentations of other sorting algo- 
rithms, send them to me. Perhaps we 
can do a follow-up of this column at 
some future date. 


The O(N) Notation 

The big O notation is often found 
when analyzing algorithm efficiency. 
It is read as “‘order of ....”” O(N) is 
“order of N,” O(N2) is “order of N 
squared, “ and so on. “O(X) time” 
means that the algorithm will per- 
form in time proportional to X. So, 
an algorithm that sorts an array in 
O(N?) time will sort the input data in 
time proportional to the number of 
input elements squared. To derive 
O(X), you look at the algorithm and 


C Ch es f (Text begins on page 90) 


Listing One 


shell( argv, argc ) 
char *argv[]; 
int argc; 

{ 


tnt gaps 25053 


fer(: gap = 
for( i= 


ee 
FWONnRK OWOON DN MW & WN ee 


argc/2; gap > O ; gap /= 2) 
gap; i < argc; i++ ) 
for(.j°= 


i-gap; j >= 0 ; j -= gap ) 


extract the crucial operations, the 
ones that are performed most often. 
In the case of sorting algorithms, this 
will be some combination of compari- 
son and exchange operations. You 
then figure out how many times that 
operation will be performed on a giv- 
en set of input data. Because the 
main use of the big O notation is to 
compare algorithms, it’s not particu- 
larly exact. You’re just trying to ex- 
press how an algorithm performs in a 
general sort of way. So, if an algo- 
rithm really takes 17 + N2? opera- 
tions to do something, the [7 is ig- 
nored because it isn’t particularly 
significant. In another example, 
Quicksort requires N*log N compar- 
isons and 1/6(log N) exchanges in 
the general case. The 1/6 is relatively 
insignificant, so we usually say that 
Quicksort will work in O(N*log N) 
time in the general case. 
DD] 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


if( strcemp(argv[j], argv[ j+gap]) <= 0.) 


break; 


exch( &argv{[j], &argv[jt+gap] ); 


} End Listing One 
Listing Two 
1; #include <stdio.h> 
2 aie QSORT.C 
“> ¥ 
4; ys Copyright (c) 1984 Allen I. Holub 
> * All rights reserved. 
6: * 
: Si * This program may be coppied for personal, non-profit use only. 
8: * 
i * Including a #define for DEBUG will make this file a stand-alone 
LO: * program which sorts argv and prints the result, along with all 
sg * intermediate stages. This is pretty instructive if you want to 
12: * see how the quick sort works. 
13: * / 
14: #ifdef DEBUG 
(Continued on page 96) 
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C Ch es f (Listing Continued, text begins on page 90) 
Listing Two 


15; 
16: 
17: 


18; 
19: 
20: 


py 


ae a 
233: 
24: 
Y deep: 
26: 
273 
28: 


29: 


30: 
a1's 
32:2 
333 
34:3 
rs fe 
36: 
37:3 
38: 
39: 
40: 
41; 
42: 
43: 
44; 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
a oe 
53: 
54; 


553 
56: 
573 


58: 
59: 
60: 


61: 
62: 


63: 
64; 


65: 
66: 
67: 
68: 
69; 
70: 


TL 


728 
73: 
74: 
75% 
76:3: 
vis 


78: 


96 


static int Lev = O ; /* Recursion level */ 

static int Maxlev = 0; /* Maximum " * / 

#fendif 

typedef int (* PFI)(); /* pointer to a function returning int * / 
static PFI Comp ; /* Pointer to comparison routine ¥*/ 
static int Width; /* Width of an object in bytes * / 
thea ae, 0 SE rN AT ER RL OUP RE ARES Seer WC EOE = eae SN CRSP TERE TM et * / 
int argvcmp( slp, s2p ) 

char *#5lp, **e2e; 


{ 
/* Comparison routine for sorting an argv like list of pointers 
* to strings. Just remove one level of indirection and call 


* strcmp to do the comparison. 
* / 


#ifdef DEBUG 


register int rval; 

rval = strcemp(*slp, *s2p) ; 

printf("level 4d: argvcmp(<%s>,<Z%s>) = Z2d\n", Lev,*slp,*s2p,rval); 
return( rval ); 


#felse 
return€ atrcemp(*slp, *s2p) ); 

#endif 

} 

qsort( base, nel, width, compare ) 

char *base; 

int nel, width; 

int (*compare)(); 

{ 
/* Perform a quick sort on an array starting at base. The 
* array is nel elements large and width is the size of a 
* single element in bytes. Compare is a pointer to a 
* comparison routine which will be passed pointers to two 
tf elements of the array. It should return a negative number 
* if the left-most argument is less than the rightmost, 
* O if the two arguments are equal, a positive number if 
* the left argument is greater than the right. If compare 
- is 0 then the default comparison routine, argvcmp 
> (which sorts an argv-like array of prointers to strings), 
* is used. 
¥y 


#ifdef DEBUG | ae 
printf("Sorting 2d element array of %d byte elements at Ox%x\n", 
nel, width, base ); 


printf("Comparison routine at Ox%x. Unsorted list:\n", compare); 
ptext( nel, base ); 
#fendif 


Width = width; 
Comp = (compare == (PFI)O) ? &argvcmp : compare ; 


if( nel > 1 ) 
rqsort( base, base + ((nel-1) * width) ); 


#ifdef DEBUG 
printf("\nSort complete, list is:\n"); 
ptext( nel, base ); 


printf("Maximum recursion ‘level = Z2d\n", Maxlev ); 
#endif 
} 
| PR ARS Ne we hi SR 7 GR A ee Taal algal a fel, Sa gt lap ZO el el Sor Aa AS a * / 
static rqsort( low, high ) 
register char *low, *high; 
{ | 
/* Workhorse function called by the access routine, qsort(). 
‘ Not externally accessible. 
* 
char *pivot, *base; 


(Continued on page 98) 


Dr. Dobb's Journal, April 1985 




















De Smet C 


8086/8088 Development Package 


$109 


SYMBOLIC DEBUGGER $50 










FULL DEVELOPMENT PACKAGE 


@ Full K&R C Compiler 

e@ Assembler, Linker & Librarian 

@ Full Screen Editor 

e@ Execution Profiler 

e@ Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 
BOTH 8087 & S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 


e First and Second in AUG '83 BYTE 
benchmarks 









e@ Examine & change variables by name 
using C expressions 

@ Flip between debug and display screen 

e Display C source during execution 

@ Set multiple breakpoints by function or line 
number 


pos Link supPoRT §=— 3H 


@ Converts DeSmet.0 to DOS.OBJ Format 
e LINKs with DOS ASM 
e Uses Lattice® naming conventions 
































CORPORATION 
P.O. Box C, Sunnyvale, CA 94087 
(408) 720-9696 
Street Address: 505 W. Olive, #767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on U.S. 
Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER e@ 
ENGLAND: MLH Tech, 0606-891146 @ JAPAN: JSE 03-486-7151 @ 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 





Circle no. 18 on reader service card. 


Thanks to YOU... We're Growing... 
with YOU and your Computer... 


LEO ELECTRONICS, INC. 
P.O. Box 11307 

Torrance, CA 90510-1307 

Tel: 213/212-6133 800/421-9565 
TLX: 291 985 LEO UR 


We Offer ...... PRICE... QUALITY... 





PERSONAL SERVICE 
64K UPGRADE 





9 Bank (IBMPC) $26.10 (150ns) 
$24.75 (200ns) 
4164 (150ns) $2.90 ea. 
(200ns) $2.75 ea. 
8 Bank (other PC) $23.20 (150ns) 
$22.00 (200ns) 
4164 (150ns) $2.90 ea. 
(200ns) $2.75 ea. 
256K “MOTHER-SAVER” UPGRADE 
256K — (150ns) $22.00 ea. 
6116P-3 — $4.00 2732 — $3.80 
2716 — $2.95 2764 — $5.50 


TMS-2716 — $4.95 27128 — $16.50 


We accept checks, Visa, MER iecice or Purchase Orders from 
qualified firms and institutions. U.S. funds only. Call for 
C.O.D. California residents add 612% tax. Shipping is UPS. 


Nolo Mn YA0\0Im (ae | colU lave Mr-lale Mn toR 0,0 (o)ar-\] ame \ | Mmail-l (0) mm aal-lalel i: (om 
turers. All parts 100% guaranteed. Pricing subject to change 
without notice. 





Circle no. 59 on reader service card. 


TIMES FASTER! 





SuperFast Software Development Tools 





INCREASE YOUR PROGRAMMING EFFICIENCY 


with high-performance software development products from SLR Systems. 
No other tools approach the speed or flexibility of the SLR Systems line. 


“Z80ASM is an extraordinary product...”, 
Robert Blum, Sept. 84 DDJ 


ASSEMBLERS 


RMAC/M80 macros e Math on external 
e Nested INCLUDES & words and bytes 






conditionals e Define symbols from 
e 16 char. labels on console _ 
externals e Generate COM, HEX, 


SLR-REL, or Micro- 
soft-REL files 
e Time & Date in listing 
e Over 30 configure 
options 


e Built in cross- 
reference 

e Optional case 
significance 

Phase/dephase 





ZEGASM -finNt ZUGG ZG0 oii dl kes Gus ose $125 

NEW! Z80ASM+¢ -all tables virtual .............. $195 
NEW! SLRMAC -full Intel 8080, with 

Z80.LIB extensions internal ........... $125 

NEW! SLRMAC+ -all tables virtual ............. $195 


Z80 CPU, CP/M compatible, 32K TPA required. 


“Z80ASM...a breath of fresh air...”, 
Computer Language, Feb. 85 


a= 
> mgm C.0.D., Check or Money Order Accepted 





— 















“...in two words, I’d say speed & flexibility”, 
Edward Joyce, Nov. 84 Microcomputing 


LINKERS 


® Links SLR & M80 e Three separate 










format files address spaces 
e Output HEX or COM e Load map and 
file SID/ZSID .SYM file 






SLRNK+ includes: 
e All tables overflow to e Works with 











disk FORTRAN & BASIC 

e HEX files do not fill e Generate PRL & SPR 
unused space files 

e Intermodule cross- e Supports manual 
reference overlays 

e EIGHT separate e Full 64K output 






address spaces 


SLRNK -fastest memory based ......... $125 
NEW! SLRNK+ -full featured virtual ........... $195 


Combo Paks available from $199. - $299. 
For additional information contact SLR Systems 


1-800-833-3061, in PA (412) 282-0864 
1622 N. Main St., Butler, PA 16001 © Telex 559215 


L RWSystems 


Circle no. 78 on reader service card. 


C Ches f (Listing Continued, text begins on page 90) 
Listing Two 


79% Static char *¥a, *b; /* Used for exchanges, will not */ 
80: Static int tmp, i; /* need to retain their values */ 
81: /* during the recursion so they */ 
82: /* can be static. a 


83: #ifdef DEBUG 

84; printf("New pass, recursion level %d\n", Lev ); 
85: if( Lev > Maxlev ) 

86: Maxlev = Lev; 

87: #endif 


88: base = low ; /* Remember base address of array */ 
89: pivot = high ; /* Partition off the pivot * 
90: high -= Width ; 


eae do 

92: { 

93: while( low < high && (*Comp)(low, pivot) <=0 ) 
94; low += Width; 


95: while( low < high && (*Comp)(high, pivot) >= 0 ) 
96: high -= Width; 


97: if( low < high ) /* exchange low & high #*/ 
98: 

99: #ifdef DEBUG 

100: printf("lev Zd: exchanging high:<%s> & low:<%s>\n", 
101: Lev,*((char **)high), *((char**)low)); 
102: #endif 

103: fFor( b = low, a = high, i = Width ; --i >= 0 ;) 
104; { 

105; tmp 
106: *b++ 
107% Fatt 
108: } 

109: } 

110: 

111; } while ( low < high ); 


aa eee /* Exchange *low and *high */ 
re 
tmp ; 


112: #ifdef DEBUG 


113: printf("level Zd: Exchanging pivot:<%s> & low:<Z%s>\n", 
114: Lev, *((char **)pivot), *((char**)low) ); 
115: #endif 

116: if( low < pivot && (*Comp)(low, pivot) > 0 ) 

117: for( b = low, a = pivot,-i = Width ; --i >= 0:3) 
118: { 

119; tmp al ee /* Exchange *low and *pivot */ 
Loewe *b++ = ¥*a 

of *at++ = tmp ; 

R22? 

123: #ifdef DEBUG 

124; printf("\nDone with pass, partially sorted list =\n"); 
125% ptext( ((pivot - base)/Width) + 1 , base ); 

126: printf("\n"); 

127: ++Lev ; 

128: #endif 

129: low += Width; 

130% if( high - base <_ pivot - low ) 

13h { 

32% if( low < pivot ) 

L333 rqsort( low, pivot ); 

13h if( base < high ) 

| aK Dy rqsort( base, high ); 

136: } 

137: else 

138: { 

139s if( base < high ) 

140: rqsort( base, high ); 

141; if( low < pivot ) 

142: rqsort( low, pivot ); 

143; } 


(Continued on page 100) 
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ce nnn ten On ea 


I 


The Macintosh 
Software 
Library 

just got fatter... 





It’s about 
TIME. 
AND SPEED. 


FASTER COMPUTER OPER- 
ATION with disk operations 2 to 
5 times faster. 


QUICK PROGRAM TRANS- 
FER FROM OTHER CP/M 
COMPUTERS using built-in 
transfer utilities and standard 
CP/M file structure. 


RUNS BIGGER MORE POW- 
ERFUL PROGRAMS with 52K 
transient program ‘area available 
on 128K Mac, 300K available on 
512K system and the capability is 
built-in to manage up to 16 
Megabytes of RAM. 


PLUG-IN WHAT YOU NEED 
..-CP/M for the Macintosh sup- 
ports up to 2 printers and 16 
Drives of 512,000,000 bytes each 
for a maximum of 8 Billion bytes 
of storage. 


MORE DISK SPACE AVAIL- 
ABLE ... each disk drive has 360 
bytes available, often eliminating 
the need for additional drives. 


CHOOSE ANY PRINTER let- 
ter quality or dot matrix ... any 
serial printer will work just fine. 


MEDIA PROBLEMS?...NONE 
.-- all that is needed to transfer 
programs from 5% to 3% is a 
modem transfer program to 
operate with our Modem 7 Com- 
munications Compatible Program 
... this enables programs to be 
transferred from XEROX, 
OSBORNE, HEATHKIT, 
KAYPRO, RADIO SHACK 
and others. 


THE 10 FEATURES: 


— 


6 Disk System 


. Documentation from Digital Research 


and [.Q. 


. MacroAssembler (no extra charge) 
. Modem 7 Compatible Communications 


Transfer Program (no extra charge) 


. C Compiler (no extra charge) 
. Text Editor (no extra charge) 
. Menu Program (puts menus on your 


programs) (no extra charge) 


. Standard Printer Driver (no extra 


charge) 


. Copy Program (no extra charge) 
. Leir-Seigler ADM3A Terminal Emula- 


tion Program (no extra charge) 


All This For Only 
$395 Retail 


Circle no. 46 on reader service card. 





UNLIMITED 
EXPANDABILITY is 
made possible with the 
total and easy control of 
serial expansion ports 
which allows many forms 
of plug-ins. 


UTILITIES ... such as STAT, 
PIP, DDT, ED, LINK68, INIT, 
NM68, SIZE, LO68, RELOC, 
and AS68. 


AND We are currently compiling 
a vast Library of CP/M software 
that can be ported over to the 
Macintosh and our Macrolibrary 
will also be available soon. 


NEED POPULAR WORD 
PROCESSING PROGRAMS? . 
. « Run WORDSTAR® 
DBASEII® AND other CP/M 
(8080) 2.2 Programs with our 
EM80 Emulator .. ONLY $195.! 





With CP/M FOR THE MACIN- 
TOSH the Macintosh Software 
Library just got fatter! 


Call or write for your Macintosh 
CP/M Software Catalog. 


- “Se 
l 4 
EA g 
N \ | U4 
f i . Nsoftware. 
I.Q. Software 


2229 E. Loop 820 N. 
Ft. Worth, Texas 76118 
(817) 589-2000 





Macintosh is a registered trademark of Apple Com- 
puter, Inc. CP/M is a registered trademark of Digital 
Research, Inc. WORDSTAR is a registered trademark 
of Micropro. DBASE II is a registered trademark of 
Ashton-Tate. ©1985 I.Q. Software 
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C Chest 


(Listing Continued, text begins on page 90) 


Listing Two 


144; 
145: 
146: 
147: 
148: 
149; 


FIV 


151: 
ts 
153% 
154: 
155: 
156: 


lS72 


158: 
159; 
160: 


161: 
162: 
163: 
164: 
165: 
166: 


167: 
168: 


169: 


GREAT BARGAINS 
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fifdef DEBUG 


--Lev ; 
#fendif 
} 
PRS SD att hae en ee nee ae oe en ee ee OR Se * / 
/* Test routine for qsort. compiled if DEBUG is #defined * / 


#ifdef DEBUG 


static ptext( argc, argv ) 


int argc; 
char ** argv; 
{ 
/* Print out argv, one element per line. 
* / 
register int . 
for( i= 1; --arge >= 0 ; i++ ) 


printit"22d=- %e\n", i, *areve++ 3 


main(argc, argv) 
int argc; 
char *¥*argv; 
{ 


/* Test routine for qsort. Sorts argv (less the first element). 
* 


qsort( ++argv, --argc, sizeof(PFI) , 0 ); 


} 


#endif End Listings 


The Louisiana Purchase............0..cc.ccceeeeee $15,000,000 2... cvcikcs Siveiascocepccs 1803 
Seward’s Icebox (Alaska) ............ccccsseeeees De Ey I i ve Soa scnaracceschdb coke 1867 


The Island of Manhattan..................ccceeeees BO ALINOOS 23 ates 1626 
The EC Text Editor................:. B49 BOE Saeoes Salsas 1985 


IN HISTORY: 


The men who made these historical purchases could perceive a real value — like the person who buys EC. Need a 
well-crafted programmers editor? Then take a look at what EC has to offer. . .and if you really need to spend over $100 
to have confidence in a text editor, let us know and we'll raise the price. 


¢ DOS INTERFACE — MORE THAN A e EDIT MULTIPLE FILES IN WINDOWS 


ID TO DOS! 
er Oe ee ey : ° FILE SIZE LIMITED ONLY BY 
Automate compiling, Linking, testing - AVAILABLE MEMORY 


do it all with one keystroke! Capture error 
messages, then look at them as you edit ¢ ON-LINE CALCULATOR - Bases: hex, 
octal, binary, decimal & ASCII. Bitwise 


your program. 
shift, AND, OR, XOR. Integer arithmetic. 





Scroll through previous DOS output - 


even if it has gone off the screen. Rewrite 
your last DOS command with one 
keystroke. Convenient! 


Run any program inside EC - any DOS 
command, compiler, DB manager - even 
BASIC! 


e COMMAND AND TEXT MACROS. 
e EC IS EASY TO LEARN - List is Alt-L, 


Find is Alt-F, Undo is Alt-U, Jump is Alt-J, 


... get the picture? 


FULL-FEATURED DEMO. Price: just ship- 
ping cost. Its only limitation - the 8k file size! 


Requires 192k, DOS 2.0 + , PC compatible. 





*** 30 Day Money-Back Guarantee 


COD, MC, VISA. Shipping charge - $5. 


e ADDITIONAL FEATURES — Color, ex- 
tended ASCII support, auto-indent, ignore 
case, auto-tab for C. 


e INTEGRAL SPOOLER AND PRINT FOR- 
MATTER. 








C SOURCE 
12801 Frost Road 


OURCE Kansas City, Mo 64138 


(816) 353-8808 


xz*k 


Dealer, OEM inquiries invited. 
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‘‘C/80...the best software 
buy in America!?? —mcrosystems 


Other technically respected publications like Byte 
and Dr. Dobb’s have similar praise for The Software 
Toolworks’ $49.95 full featured ‘C’ compiler for CP/M® 
and HDOS with: 


e |/O redirection 

* command line expansion 

e execution trace and profile 
e jnitializers 

e Macro-80 compatability 

e ROMable code 

e and much more! 


‘*‘We bought and evaluated over $1500 
worth of ‘C’ compilers. . .C/80 is the one 


we use.’’ 
— Dr. Bruce E. Wampler 
Aspen Software 
author of “Grammatik”’ 


The optional C/80 MATHPAK adds 32-bit floats and 
longs to the C/80 3.0 compiler. Includes I/O and trans- 
cendental function library all for only $29.95! 


C/80 is only one of 41 great programs each under 
sixty bucks. Includes: LISP, Ratfor, assemblers and 
over 30 other CP/M® and MSDOS programs. 


For your free catalog contact: 


The Software Toolw6rks' 
15233 Ventura Blvd., Suite 1118, 
Sherman Oaks, CA 91403 or call 818/986-4885 today! 


CP/M is a registered trademark of Digital Research. 
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BIG DISCOUNTS FROM 
JOHN D. OWENS ASSOCIATES 


MACROTECH MI-286: 80286/Z-80H1 DUAL PROCESSOR S-100 CPU 
BOARD): $1,116 
MACROTECH MEMORY MSR: 120NS, high-speed dynamic RAM with 
realistic pricing: 
Works with CompuPro 8085/8088; MT-286 and others: 
256K: $556 512K: $876 
MACROTECH STATIC RAM: Substitute for RAM 22 and RAM 23. 
256K STATIC: $960 512K STATIC: $1,800 


EMERALD SYSTEMS HARD DISK SUBSYSTEMS and TAPE BACKUP 

High capacity! Up to 280 MB! Emerald has overcome the 32MB DOS 
limitation! Allows multiple volumes per physical drive. Back up and restore 
utilities. Ideal for LAN applications. 


HOUSTON INSTRUMENTS: Plotters: DMP 41 OR 42: $2,397; DMP 29: 
$1,838 
DIGITIZERS: 1)T'11 $694; ID1114 $750; 
New! 14 pen DMP 51 and 52: $4,796 


DTILAA $714 


ILLUMINATED TECHNOLOGY S-100 COLOR GRAPHICS: $1,116 


NEC APC III: 80186 MS-DOS system w/spectacular graphics: 20% off list 


SEMIDISK 2MB DISK EMULATOR FOR IBM PC and EPSON QxX 10: 
$2,050 


BIG DISCOUNTS on LOMAS, COMPUPRO, IMS, 
INTERCONTINENTAL, DIGITAL GRAPHICS SYSTEMS, ADVANCED 
DIGITAL, ACKERMAN, BYAD and many others. 

Prices & availability subject to change without notice. 


Write or call for product literature and inventory sale list. 


WE EXPORT: OVERSEAS CALLERS: TWX 710 588 2844 
(OW ENSASSOC NY) 


DOMESTIC AND OVERSEAS ORDERS TAKEN BY PHONE, 
LETTER, TELEX OR EASY LINK. 
We accept VISA and Mastercard. Shipping $5 per board in continental USA. 


JOHN D. OWENS ASSOCIATES 
12 SCHUBERT STREET STATEN ISLAND, NEW YORK 10305 
(718) 448 6283 (718) 4486298 (718) 448 2913 
EASY LINK MAILBOX ADDRESS: 63840768 





Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. 


$49.95 plus tax delivers Write-Hand-Man and 4 
companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 

Other CP/M products available from Poor Person Software: 
Poor Person’s Spooler ($49.95), Poor Person’s Spelling Checker 
($29.95), Poor Person’s Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person’s Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 
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WIZARO C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


ALL UNIX SYSTEM Ill LANGUAGE FEATURES. 

UP TO A MEGABYTE OF CODE OR DATA. 

SUPPORT FOR 8087 AND 80186. 

FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
CROSS-FILE CHECKS OF PARAMETER PASSING. 

USES MSDOS LINK OR PLINK-86. 

CAN CALL OR BE CALLED BY PASCAL ROUTINES. 
IN-LINE ASSEMBLY LANGUAGE. 

240 PAGE MANUAL WITH INDEX. 

NO LICENSE FEE FOR COMPILED PROGRAMS. 


The new standard for C Compilers on MSDOS! 


Only $450 


For more information call (617) 641-2379 
Wizard Systems Software, Inc. 

11 Willow Ct., Arlington, MA 02174 
Visa/Mastercard accepted 


WSS 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


A New Assembler for 
MSDOS 


Philip Oliver has sent us a copy of his 
new product ED/ASM-86 for review. 
This is an interactive programming 
tool that combines the functions of 
an assembler, line editor, linker, and 
debugger in a single 50K program. 
8087, 80186 and 80286 mnemonics 
are fully supported for assembly, 
tracing, and disassembly. Macros, 
structures, and conditional assembly 
directives are included. This is an in- 
teresting product, although I feel that 
its appeal would be broader if it were 
fully source compatible with the Mi- 
crosoft Macro Assembler and if it 
could handle standard Microsoft 
Linker object files. The current price 
of ED/ASM-86 is $100.00; contact 
Oliver Computing Company at 9311 
Jutland Court #D, Indianapolis, IN 
46250 for more information. 


TEE Filter for MSDOS 2 


Mr. A. K. Head, of Melbourne, Aus- 
tralia, contributed a pair of MSDOS 
2.x filters. We are printing the first of 
these, called TEE, in this month’s col- 
umn as Listing One (page 106). TEE, 
a standard filter in Unix systems, is 
used in a pipe to make two copies of 
the standard input, directing one to a 
file and the other to the standard out- 
put (which might also be redirected 
into a file). Where you normally 
would use a filename, here you can 
also use any logical device such as 
PRN: or CON:. For example, you 
could enter the command: 

DIR: SORT: TEE C:SORTED.DIR 
This would direct the output of the 
directory command to the SORT fil- 
ter and thence to TEE, which would 
send one copy of the sorted listing to 
the disk file C:'SORTED.DIR and the 
other copy to the standard output 
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(console, in this case). This version of 
TEE doesn’t support the Unix switch- 
es —1 (ignore interrupts) or —a (ap- 
pend to previous contents of a file). 


80286 Feedback 


Matt Robins, of Beverly Hills, Cali- 
fornia, writes: “I am writing to you 
concerning two and a half errors in 
your November 1984 DDJ column. 

““PCDOS 3.0 could not provide the 
*,.. Same old horrible EDLIN that we 
first met in PCDOS 1.0.’ In fact, as 
you probably know by now, the 
PCDOS 2.0 version of EDLIN is a sig- 
nificant improvement on the PCDOS 
1.1 version that I started out with. It 
boasts 40% more commands (14 vs. 
10) of the most advanced variety: 
Copy-line and Move-line that make 
programming easy. Additional capa- 
bility is provided by the use of + and 
— signs, like old CP/M ED (which was 
a true abomination). 

“What I particularly like about the 
new EDLIN is that it uses the DOS 
edit mode keys Fl through F4. I 
couldn’t live without this capability! 
I’ve enhanced my EDLIN by assign- 
ing the arrow keys and Home, End, 
PgUp, and PgDn keys to ANSI se- 
quences that execute the appropriate 
commands in EDLIN (to comply with 
the above mentioned keytop defini- 
tions).... 

“Your second mistake was calling 
the 80286 ‘a slightly enhanced 8086.’ 
By now you must have read the No- 
vember BYTE article by Paul Wells 
that correctly states: ‘... at the same 
clock speed and [when you] do not 
take advantage of any 80286 capabil- 
ities, the 80286 achieves 250 percent 
of the 8086’s performance.’ It does 
that, partly, by having five processors 
on board, as opposed to the 8086’s 
hiss 

I agree that the 80286 in protected 








mode is a very different machine, but 
I still maintain that you don’t gain 
much more by using an 80286 in real 
mode (as PCDOS 3.0 does) than you 
could get just by cranking up the clock 
on a normal 8086 and using 16-bit 
memory like the Compaq DeskPro. 
Matt goes on to say: “Finally, a 
half-a-mistake (maybe only a matter 
of taste) is your saying that use of the 
multitasking, virtual memory, and 
memory protection will *... wring all 
of the available computing power out 
of the 80286.’ I tend to think of com- 
puting power as throughput, and the 
three activities mentioned above low- 
er the throughput, not facilitate it. 
Put another way, ‘computing power’ 
is benchmark timings, whereas the 
three activities above are memory 
management functions. Being a 
member of the ‘one [or more] proces- 
sors, one user’ school of thought, I am 
interested in Unix and multitasking 
only for my personal use: performing 
several of my tasks simultaneously.” 


More Macintosh Feedback 


Steve Rabalais writes: “The Macin- 
tosh contains a rich operating system 
that, if used right, will take a lot of 
the labor out of programming. Utili- 
ties for Floating Point (IEEE Stan- 
dard), File Management, Transcen- 
dentals, etc., are easily accessed from 
Assembly Language. The Apple peo- 
ple supporting the development work 
are apparently impressed by the BIG 
NAME programming shops, and in- 
dependent developers are left to their 
own wits (which is probably a good 
thing). I personally do not depend on 
phone calls to solve programming 
problems and prefer to ‘dig it out’ be- 
cause this is the best way to learn. I 
attempted to become an Apple Certi- 
fied Developer but failed to impress 
the Marketing and Sales people with 
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their requisite pile of paperwork. I 
purchased my Macintosh and Lisa 
‘over the counter’ and began pro- 
gramming immediately. I have 
talked to Certified Developers that 
had to wait months to obtain their 
‘favored’ hardware discounts. I do 
have ‘INSIDE MACINTOSH’ and 
have found it indispensable for writ- 
ing Mac applications. 

“Although I do not have the offi- 
cial Macintosh Apple Assembler, I 
have heard horror stories to the effect 
that it requires two Macs. I use an 
excellent, inexpensive Assembler 
called MacAsm from Mainstay that 
allows me to program complete appli- 
cations on a 128K Macintosh with a 
single 400K disk drive. MacAsm is a 
two pass Macro Assembler and is 
complete with a Resource Compiler 
and Text Editor. I am writing a series 
of Macintosh CADD (computer-aid- 
ed design and drafting) applications 
and have had no problems using this 
assembler. I have found it fast, effi- 
cient, and simple. I am not using the 
Apple Workshop on the Lisa to de- 
velop software because it is slow and 
complicated to use and Apple recent- 
ly wanted more money for a complete 
set of the latest updates. 

“T use the Workshop version I have 
to help learn 68000 assembly lan- 
guage. The Workshop contains a 
Pascal compiler that will dump the 
generated assembly code into a text 
file. I inspect the code, figure out how 
things are done, and then rewrite it 
(for efficiency and clarity) using 
MacAsm. This may sound like cheat- 
ing, but I find that I am gradually 
depending less on the Lisa as the 
learning process continues. Macin- 
tosh programming in assembly lan- 
guage is hard to learn, but once you 
have learned, it is easy to write so- 
phisticated applications. Independent 
Developers have made the Apple II 
successful and apparently will do the 
same for the Macintosh in spite of the 
roadblocks. In conclusion, I would 
say that the Macintosh is a superb 
combination of hardware and soft- 
ware, and a proper programming en- 
vironment can be had at a reasonable 
price .... Hopefully, other program- 
mers will read this and know that 
there is help in the wilderness for pro- 
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gramming the Macintosh.” 

Steve also contributed a program- 
ming tip for the 68000, which ap- 
pears as Listing Two (page 110) fol- 
lowing this column. 


$0286 XENIX 


Speaking of Unix, we have been us- 
ing 80286 XENIX 3.0 for the PC/AT 
here at Laboratory Microsystems for 
about two months. Getting acquaint- 
ed with Unix is an entertaining but 
aggravating experience. Unix devo- 
tees claim that it was designed by 
programmers for programmers and 
increases productivity enormously, 
but to me it looks like it grew up topsy 
turvy out of the late-night efforts of a 
legion of graduate student hackers. 
No doubt, back when Ken Thompson 
and Dennis Ritchie invented Unix, it 
was compact and elegant (after all, it 
ran on a PDP-7), but it has grown into 
a behemoth that needs 256K of RAM 
to get off the ground. 

The “Adventure” game mentality is 
seen everywhere in the system. “You 
are lost in a twisty, turning maze of 
cryptic, poorly indexed software man- 
uals.” There is no uniformity of syntax 
whatsoever, the commands have ob- 
scure or arcane names (grep, Is, cat), 
switches are case-sensitive (for in- 
stance, a lower-case “‘s” switch and an 
upper-case “S” switch on the C com- 
piler do vastly different things), and 
the screen editor vi makes WordStar 
look positively user friendly. 

The documentation for XENIX is 
clearly derived from the original Unix 
manuals, even though it has been fil- 
tered through the technical writers at 
Microsoft and then IBM. One often 
comes across unexpectedly witty 
sayings, such as (under the SPLINE 
command) “‘a limit of 1000 points is 
silently enforced” or (in the terminal 
capabilities library) “Hazeltime = 
brain damage” and “Names starting 
with X are reserved for serious distur- 
bances.”” Command names frequently 
have a high cuteness factor, such as 
“finger” (report names of active us- 
ers), ““whodo,” and “‘stty sane” (used 
when the operating system loses its 
mind and starts spitting garbage out 
to your terminal). 

None of this is meant as a criticism 





... waiting 
for C programs to 
compile and link? 





Use C-terp 


the complete C interpreter 


This is the product you’ve been 
waiting (and waiting) for! 


Increase your pom and avoid 
agonizing waits. Get instant feedback of 
your C programs for debugging and rapid 
prototyping. Then use your compiler for 
what it does best...compiling efficient code 
... SIOWLly. 


C-terp Features 
@ Full K&R C (no compromises) 


¢ Complete built-in screen editor-- 
no half-way house, this editor has every- 
thing you need such as multi-files, inter-file 
move and copy, global searching, auto- 
indent, tab control, and much more. 

e Fast-- Linking and semi-compilation are 

‘ breath-takingly fast. (From edit to run 
comes in a fraction of a second for 
small programs.) 

© Convenient-- Compiling and running are 
only a key-stroke or two away. Errors 
direct you back to the editor with the 
cursor set to the trouble spot. 

® Compiler Compatible-- You can access 
functions and externals compiled with C86 
or Lattice C or assembly language. Utilize 
your existing libraries unchanged! 


® Complete Multiple Module Support-- 
Instant global searches, auto-compile 
everything that’s changed, etc. 


e Many more features including batch mode 
and symbolic debugging. 

e Runs on IBM PC, DOS 2.x, 192K and up 

¢ Price: $300.00 (Demo $45.00) MC, VISA 
Price of demo includes documentation and shipping 


within U.S. PA residents add 6% sales tax. 
Specify C86 or Lattice version. 


GIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(215) 584-4261 


*Trademarks: C86 (Computer Innovations), Lattice 
(Lattice Inc.), IBM (IBM Corp.),C-terp (Gimpel Software) 


Circle no. 38 on reader service card. 
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ADVANTAGE nr ae 


At Programmer’s Connection we listen to programmers 
and we take the time to research and test our products. 
We are confident in our knowledge of the software 
market and that’s why we welcome your inquiries. Our 
goal istohelp you make an informed decision when leg 
purchasing a programming language or utility. Call us Bey 
today — you’ll discover the difference. Programmer’s i. 
Connection will revolutionize the way you think about 
software development. 


Discover the advantages of buying from Programmer’s Connection: 


. We offer the latest version of a product. 

. Most popular products are in stock ready to be shipped. 

. Receive same manufacturer’s support as if buying direct. 

. Experienced professional programmers are on staff. 

Choose from a large selection of the best software products available. 
Knowledgeable and courteous sales staff. 

. Significant discounts off of retail prices. 

No extra charge on prepaid orders, including major credit cards. 

. Reasonable charges for shipping and handling. 

. Toll free services from Canada and the Continental U.S. 


Programmer’s Development Tools: C UTILITIES: 







DODNAMNAWNH— 


—_ 


Safe C Standalone Interpreter by Catalytix . 400 400 

Cc LANGUAGE: List Ours Safe C Dynamic Profiler by Catalytix ...... 150 150 
Computer Innovations C-86 Compiler ...... 395 299 Safe C Runtime Analyzer by Catalytix ...... 400 400 
DeSmet C Compiler with Debugger ........ 159 145 Windows For C by Creative Solutions ...... 195 139 
Lattice C Compiler from Lifeboat ......... 500 299 
Mac C by Consulair for Macintosh .......... 295 259 c-tree by Faircom 
Mark Williams C Compiler w/Source Full featured B-Tree functions for high speed ISAM 

ONO is ans Porn eee iets ses S00 449 file management. Comes as C source code which 
Xenix Development System by SCO ....... 1350 1099 can be compiled on almost any system including 


Macintosh. No royalties on generated code. 
Special Combination Offer List Price $395 Our Price $359 


Lattice C Compiler and 





C-SPRITE symbolic Level Debugger 


Combined List Price $675 Our Price $429 OTHER PRODUCTS: 


APL2C by Decision Images /nterfaces APLtoC 150 139 








Btrieve by SoftCratt: <2 2s. ta ae. 250 199 

OTHER LANGUAGES: Dr. Halo by Media Cybernetics ............ 95. .79 

8088 Assembler wiZ-80 Translator 2500 AD. 100 89 FORTRAN Libraries by Alpha Comp. Serv... Call Call 
APL*Plus/PC by STSC .................. 995 499 FORTRAN Scientific Subroutine Library ... 175 159 
BetterBASIC by Summit Software stad aot do eee 200 169 Periscope Debugger by Data Base Decisions 295 269 
Golden Common LISP by Gold Hill ........ 495 439 Pfix-86 Plus by Phoenix.................. 395 299 
Macro Assembler by Microsoft . New Release 150 119 Plink-86 Overlay Linker by Phoenix ......... 395 299 
Modula-2/86 by Logitech ................. 495 439 Pmate Macro Text Editor by Phoenix ........ 225 159 


Professional BASIC by Morgan Computing. 95 89 Polytron Products ...... We Carry a Full Line Call Call 
C UTILITIES: Profiler by DWB Associates .............. 125 89 





Screen Sculptor by Software Bottling ...... 125 109 
Asynch Comm Library by Greenleaf ....... 160 129 XTC Text Editorby Wendin................ 99 89 
C Power Paks from Software Horizons ..... Call Call Xtrieve by SoftCraft . 2.0... 2....4.5. Sale! 195 149 
C-Sprite Symbolic Debugger for Lattice ......... 175 159 
C Utility Library by Essential Software ..... 149 119 CODESMITH-86 Symbolic Debugger by Visual Age 
dBC dBase/C Interface by Lattice ........... 250 219 New version 1.9 provides dual-mode patching 
DOS LINK Support for DeSmetC........... ec assembler, branch-to-patch mode, stop-on-data 
English-to-C/C-to-English by Catalytix ..... 100 100 compare/mis-compare, dual monitor debug mode, 
ESP for C by Bellesoft.2. 8 ee. 349 279 breakpoints and passpoints, machine state snapshot 
Graphic C by Scientific Endeavors ........ 195 169 ane nouIne sae Sh SERPS. 
Greenleaf C Functions Library............ 175 129 List Price $145 Special Price $119 
Halo Graphics by Media Cybernetics oc te fale es a wt 200 125 Prices are subject to change without notice. Ee Ba 
PANEL Screen Editor by Roundhill ......... 295 234 Account is nioen when neh is shipped. ae 
Run/C Interpreter by Age of Reason....... 150 129 3 


Call for our new Spring Catalog ,, canada: 


Introducing Pre-C by Phoenix Software 1 -800-336-1 1 66 1-800-225-1 166 


Complete lint-like utility that helps detect Programmer’s Connection 
[y . 136 Sunnyside Street 


in functions and data types across multiple files. 


List Price $395 Our Price $339 


logic errors by searching for inconsistencies 
Hartville, Ohio 44632 


AN (216) 877.3781 (in Ohio) 
“Programmers Serving Programmers:” 
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of the Microsoft implementation, 
however, because the boys in Belle- 
vue seem to have done a pretty good 
job of implementing System III on 
the 80286. And this was no weekend 
fling, either. IBM states that “the to- 
tal number of lines that migrated 
from the original AT&T source code 
to PC XENIX was well over 400,000 
lines.” | 

The performance, even with a cou- 
ple of extra terminals hung onto the 
system, is quite reasonable—due 
mainly to the PC/AT’s very fast hard 
disk. XENIX 3.0 runs the 80286 in 
protected mode and is very crash- 
proof compared to PCDOS. Any at- 
tempt by your program to access 
memory not specifically allocated to 
your program, or to execute an illegal 
or privileged opcode, results in its im- 
mediate termination. We have found 
that as you develop new software un- 
der XENIX, the friendly message 
““Memory fault—core dump” will be 
your constant companion. 

A few warnings before you rush 
out to buy a PC/AT and XENIX. 
There is no operating system support 
for graphics display modes; there is 
only very primitive support for the 
keyboard (ALT-key combinations 
can’t be read, and even reading the 
unadorned function or arrow keys 
must be done through writing control 
strings to the ANSI driver); and the C 
compiler apparently has bugs in the 
“large model” and the optimizer, as 
Microsoft explicitly warned us not to 
use those features. 

Because 80286 XENIX runs in pro- 
tected mode, direct access to the 
hardware is, for all practical pur- 
poses, nonexistent—you can forget 
about your carefully optimized, 
memory-mapped video routines and 
all the other code you've painstaking- 
ly created to make your PCDOS ap- 
plications look flashy. The ROM 
BIOS isn’t available either. In fact, 
your program can’t even tell where it 
is running, let alone where anything 
else is: the segment registers contain 
only logical selectors, and the corre- 
sponding physical addresses are not 
visible. Those of us who have become 
spoiled by the ability on micros to 
reach out and twiddle bits or ports 
wherever we please are out of luck. 
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One more warning, and not the least: 
the operating system requires some 
15 Mbytes of hard disk space. If you 
are planning to use both XENIX and 
PCDOS on your PC/AT, best to plan 
ahead by buying two hard disks. 

At the UNIFORUM conference in 
Dallas that we attended in January, 
Microsoft discussed plans to upgrade 
80286 XENIX for compatibility with 
AT&T’s Unix System V. Where this 
will leave purchasers of IBM PC/AT 
XENIX is not clear. The PC/AT ver- 


Now FoxBASE, the dBASE II source- 
compatible interpreter/compiler, is even 
better than before. Automatic 8087 co- 
processor support allows you to perform 
numeric computations with lightning speed. 
Fourteen-digit precision gives you 40% 
greater accuracy than dBASE II. The fact 
that FoxBASE is not copy protected means 
you can easily load it onto your hard disk. 
What's more, FoxBASE comes complete with 
a NO-RISK demo plan. 

Of course, FoxBASE still offers all of 
the features that dBASE II does .. . PLUS 
¢ Runs 3 to 20 times faster © Permits up to 
48 fields/record...50% more than dBASE II 
© Supports full type-ahead ® Compiles pro- 


Developed by 


DACOR 


COMPUTER SYSTEMS 


Evolution. 


dBASE II is a trademark of Ashton-Tate. 
UNIX is a trademark of AT&T 
FoxBASE is o trademark of Fox Software Inc 


sion is being sold and supported di- 
rectly by IBM, and, as we have found 
out to our sorrow with other products 
(such as the Microsoft Assembler), 
new improved versions released by 
Microsoft hardly ever seem to mi- 
grate down the pipeline to show up in 
IBM distribution. 

But however you slice it, the re- 
lease of PC/AT XENIX is a signifi- 
cant event for the Unix community. 
This is the first time that a personal 
computer powerful enough to run 





gram sources into compact object code ® Has 
twice as many variables © Comes with a so- 
phisticated online manual and HELP facility. 


FoxBASE is currently available on a wide 
range of machines: IBM-PC, IBM-PC/XT/AT, 
COMPAQ & IBM compatibles, TI Professional, 
DG Desktop, and DG MV-Series to name just 
a few. And it will soon be available on the 
Molecular and NCR Tower computers as well. 
Call or write today for more information. 


MS-DOS: Development Pkg. $395 
Runtime Pkg. $695 
AOS/VS: Development Pkg. $995 
Runtime Pkg. $1995 


UNIX and XENIX: (To Be Announced) 


ae 


from FOX SOFTWARE INC. 


13330 Bishop Road, P.O. Box 269, Bowling Green, OH 43402 / 419-354-3981 / TWX 810-499-2989 
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Unix with decent performance has 
been available at a price the average 
small businessman would be willing 
to pay; the added prestige of the three 
magic initials behind it (no, I don’t 
mean AT&T) may be sufficient to let 
it travel into uncharted regions where 


16-Bi t (Text begins on page 102) 
Listing One 


no Unix has gone before. The total 
installed base of Unix and Unix-de- 
rivative systems in the world is cur- 
rently estimated to be less than 
100,000; IBM could conceivably dou- 
ble or triple this in a year with the 
right kind of marketing and applica- 


tion software. It should be interesting 
to see what happens. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 199. 


me 6 Be HO MS BS SO Me Se BSF SWe TVS WS 


name tee 

page SOLS 

title 'TEE - tee junction for DOS pipes' 
TEE --- A “tee" junction for DOS 2.x pipes 


after the fashion of the Unix function TEE 
By A. K. Head, 6 Duffryn Place, Melbourne, Australia 3142 
reformatted and error handling added by Ray Duncan 


TEE reads from the standard input (redirectable) and 
outputs to both the standard output (redirectable) 
and a file, e.g.: DIR | TEE C:\MYDIR\FILE.EXT | SORT 


The file can be CON, LPTl, etc. 
keyboard Control-S pauses the 


TE-it: 15 CON; 
display as usual. 


then 


command equ 88h ; buffer for command tail 
buflen equ 16384 ; buffer length, alter to taste 
cr equ 8dh >; ASCII carriage return 
lf equ Gah ; ASCII line feed 
ff equ Bch ; ASCII form feed 
eof equ Glah ; End-of-file marker 
tab equ 89h ; ASCII tab code 
blank equ 29h * ASCII blank 
; DOS 2.x pre-defined handles 
stdin equ GOGO ; standard input file 
stdout equ GOG1 * standard output file 
Stderr equ G82 * standard error file 
stdaux equ G9B3 ; standard auxilliary file 
stdprn equ GOG4 ; standard printer file 
cseg segment para public 'CODE' 
assume cs:cseg,ds:cseg 
org 18QH ; Start .COM at 10@H 
tee proc far 
mov cl,ds:command ; get length of command tail. 
XOX ch,ch 
; address of command string. 
mov si,offset command+tl 
mov di,offset command+tl 
teel: ; squeeze out leading spaces. 
mov al,byte ptr [si] 
cmp al,blank 
jbe tee2 
mov byte ptr [di],al 
inc di 
tee2: inc Si ; look through command tail 
loop teel ; until it's exhausted. 
mov byte ptr [di],@ ; make ASCIIZ string. 
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(Continued on page 108) 
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PCBTAM — 


g icati 


Allows an IBM PC or compatible to perform 
BISYNC communication. PCBTAM is a gener- 







CA card and 
¢ Source or object licen 
* Asynchronous version avait (PCATAM) 
¢ Modifiable for other USARTS. 

For details write: 


SYMBIOTIC 


iotic Protoco! inc. 
vit aree Grin Nee sear OTS 
'201) 777-8454 















Olive Branch Software 


COPY PROTECTION 

SLK/F places an assembled or 
compiled program on a dis- 
kette with 4 different copy- 
resistant features in such a 
way that it runs normally, but 
cannot be copied by backup 
programs such as COPYPC. 
The rest of the diskette is 
available as normal, and DOS 
may be added. Price $150. 
Olive Branch Software 

1715 Olive Street 

Santa Barbara, CA 93101 
(805)569-1682 




















Offering low cost 
advertising reaching 
thousands of computer 
programmers and 
professionals each 
month. Departments to 
choose from include: 
Software 

Hardware 
Accessories/Supplies 
Career Opportunities 
Services 

User Groups. Special 
categories are also 
available. 
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Listing One 


tee3: 


tee4: 


tee5: 


tee6: 


tee7: 


tee 
nchar 
handle 


errl 


errllen 


err2 
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mov 
mov 
mov 
int 
pe 

mov 


mov 
mov 
mov 
lea 
int 
3c 

mov 
cmp 
je 

mov 
mov 
mov 
int 
Te 

cmp 
jne 
mov 
mov 
int 
jc 

cmp 
jne 
jmp 


mov 
mov 
int 


mov 
Ttyt 


mov 
mov 
mov 
mov 
int 
mov 
int 


mov 
mov 
mov 
mov 
int 
mov 
mov 
int 
mov 
int 


endp 
dw 
dw 
db 


db 
equ 


db 
db 


ah,3ch ; create output file. 
Cx, C ; attribute=@. 
dx,offset command+l 

21h 

tee6 ; can't create file 


handle,ax save token for file. 


=e 


ah,3fh ; read standard input. 
bx, stdin 

cx,buflen 

dx,buffer 

217 

tee4 ;. JUNP, -CELrOL, 
nchar,ax save length of read. 


td 

td 
ax,@ ; nothing read in? 
tee4 * end o£ Fite; exit. 
ah,4@0h o WELECG GO. tdi iG 0s 
bx,handle 
cx, sichar 
21h: 
tee7 ; jump, write failed. 
ax,nchar 
tee7 ; jump, write failed. 
ah,4@h ; now write to standard output... 
bx,Sstdout 
21h 
tee7 ; jump, write failed. 
ax,nchar 
tee7 ; jump, write failed. 
tee 3 ; read again until end of file. 
ah, 3eh ; close output file. 
bx,handle 
21h 
ax,4cO8@h -; exit with return code=@. 
21h 


dx ,offset errl: ; “print “Can't-create file". 
cx,errllen 


ah,4@h ; display error message and exit. 
bx,stderr 

21h 

ax,4c@lh s exit with return code=l. 

21h 


ay Otiset err? = sprint "Disk 1s" furi™ . 
cx,err2len 


ah,4@h ; Gisplay error message and exit. 
bx,stderr 

21h 

ah,3eh ; close output file. 

bx,handle 

21h 

ax,4c@2h ; exit with return code=2. 

21h 

) ; number of chars actually input. 
g ; token for output file. 

GE Lt 

"tee: Cannot create file' 

Nod arc Wi 3 


(this byte)-(offset errl) 


er pre 
“tees Disk. ss furi.* 


(Continued on page 110) 
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FOR THE SERIOUS KAYPRO® USER 


THE DISKIT | 
re wIeK FORTH 


HARD DISK fg 


DRIVES 


OW wah ZcPR3" 


Now you can add from 5 to 40 Megabytes of fast-access Winchester 
storage to your KAYPRO 2, 4, or 10. The DISKIT is only 4 inches high; 
5.7 if you get the two drive model with the removable 5 or 10 Mb. 
cartridge, and weighs less than 10 pounds. Easily disconnect DISKIT 
from the computer whenever you want, and if more capacity is required, 
just swap your drive for a larger model. 


Our DISKIT Model 10 has 10.8 Megabytes of formatted capacity... 20% 
more than a Kaypro 10, and runs about twice as fast. Installs in minutes. 


Call SPC now and ask for more information. Quantity and prepayment 
‘discounts are available. 


SYSTEMS PERIPHERALS CONSULTANTS 
9747 Business Park Avenue 
San Diego, CA 92131 
(619) 693-8611 
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Due to popular demand, Dr. Dobb’s Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $5.00. 
Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
‘A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 
The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2” 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 
Please send copy(ies) of the Ron Cain Reprint, and 

copy(ies) of the J. E. Hendrix reprint to: 


Name 


Address 


eS i ee gone se Aen ew eee aS petal cap 4) ° Rms S 


ALL REPRINT ORDERS MUST BE PREPAID. 


Please allow 6-9 weeks for delivery. 





for the Apple® | [ 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
fe) en y Taree] e-] elem uiclacme(clalclechicto mm oh Mmip<-te| 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


lar) Mm al- 1), Mm ovole (<x ele)anl eli F-1a(e)s Marcy (211/-) 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
tO] MB a tro b dal) c-lalel-]g0 me) Lele) 43 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, StaA 
Champaign, IL 61820 


iW -vo1 oval (er-] Mm hance) apat-h alee i 
217/359-6039, mornings 


For any Apple ][ model, 48K or larger. 


Apple is a registered trademark of Apple 
Computer. 
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Advanced 


ww Trace86" 


Symbolic Debugger & Assembler Combo 


Full-screen trace with single stepping; 
Even backstepping! 


Write & Edit COM & EXE programs 
Conditional breakpoints (programmable) 


Switch between trace and output screen; 
Or set up two monitors 


8087, 80186, 80286, 80287 support 
Write labels & comments on code 
Polish hex/decimal calculator 
and more... Priced at $175.00 


To order or request more information contact: 


= @ Morgan Computing Co.., Inc. 


P.O. Box 112730, Dallas, TX 75011 
(214) 739-5895 
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subscription 
Problems? 


No Problem! 


Si 


Give us a call and we'll 
straighten it out. Today. 












Outside California 
CALL TOLL FREE: 800-321-3333 


Inside California 
CALL: 619-485-6535 or 6536 
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16-Bi f (Listing Continued, text begins on page 102) 
Listing One 


db ron VS Sh 
err2len equ (this byte)-(offset err2) 
buffer equ this byte ; data is read here from 
; standard input 
cseg ends 
end tee 


End Listing One 


Listing Two 


Programming Tip: Jump Tables are a convenient, efficient, 
and general way of directing program flow based on a 
multiple choice. Here is an implementation of a Jump Table 
for the 68000. 


* 
* Register D@® = choice index from @ to N 
* 
start equ = 
add.w dg,dag@ 
move.w jtable(pc,dG.w) ,dg 
jmp jtable(pc,d@.w) 
jtable equ - 
data /jump8sG-jtable 
data /jump8G1l-jtable 
data /jump882-jtable 
data /jumps83-jtable 
(etc) 
(etc) 
(etc) 
Jump Bde equ * 
(code) 
bra continu 
jJumpsg1 equ bs 
(code) 
bra continu 
jump 882 equ * 
(code) 
bra continu 
jump 8 G3 equ * 
(code) 
bra continu 
(etc) 
(etc) 
continu equ ” 
(code) 


End of Listing 2 


End Listings 
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S-100 EPROM PROGRAMMER 


EPROM-32 





Put 
e Field-proven board meets IEEE-696 standard. 
e Programs 1K through 32K (byte) EPROMs. 
e Textool zero-insertion-force programming socket. 
e EPROM is programmed through |/0 ports and can be verified 
through |/0 ports or located in memory space for verification. 
e Programming voltage generated on-board. 
e Personality Modules adapt board to EPROMs: 
PM-1—2508, 2758 PM-3—2732, 2732A 
2916, 2716 PM-4—2564 PM-8—27128 
PM-2—2532 PM-5—2764 PM-9—27256 
e Feature-packed CP/M-compatible control software includes 
fast programming algorithm. 
e One year warranty. $269.95* 
(A & T) 


PM-6—68764 


MicroDynamics 
Corporation 
Suite 245 e 1355 Lynnfield Road « Memphis, TN 38119 
(901)-682-4054 


* Price includes EPROM-32, documentation and two Personality Modules(specify). Additional 
Modules—$7.95. Control software on 8” SSSD diskette—$29.95, UPS ground—$2.00, UPS 
air—$4.00, COD—$1.65, foreign add $15.00, VISA & MASTERCARD welcome. 


See Dec. 1983 Microsystems for a review of the EPROM-32. 
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Indexed File Manager 


using 
“ $752 
B-Trees 22. 


C Programmers, we provide the record handling that 
C left out. 


The SOMfOCUS Tree library is arecord oriented function pack- 
age that uses balanced BTree indexing for guaranteed fast 
access. Add our functions to your C library and greatly reduce 
application development time. 


e High speed keyed and sequential file handling. Up to 


16.7 million records per file. 

@ Source code supplied; conforms to K&R standard to 
ensure portability. 

e No royalties on application programs. 

e Documentation and example programs included to help 
you use BTrees. 


e Full feature product at a fraction of the cost of 
competing BTree software. 


Join the growing number of satisfied programmers using 
BTrees. 


To order call 


1277 Pallatine Drive 
Oakville, Ontario L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 
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Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 


. Matrix Storage and Operations 7. Time Series 

. Correlation and Regression 8. Nonparametric Statistics 
. Design Analysis 9. Distribution Functions 

. Discriminant Analysis 10. Linear Analysis 

. Factor Analysis 11. Polynomial Solutions 

. Eigen Analysis 12. Data Screening 


Sources Included 


$295.00 


FORLIB-PLUS™ 

Contains three assembly coded LIBRARIES plus support. 
FORTRAN coded subroutines and DEMO programs. 

The three LIBRARIES contain support for GRAPHICS, 
COMMUNICATION. and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library. there are routines which will permit interrupt 
driven. buffered data to be received. With this capability. 9600 
BAUD communication 's possible. The file handling library contains 
all the required software to be DOS 3.0 PATHNAME compatible. 


STRINGS & THINGS™ 
Support for CHARACTER MANIPULATION (string support), 
SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. 


$69.95 each 


P.O. Box 2517 P- ALPH : : 
Cypress, CA 90630 W mm SP ¥%%'E? (714) 894-6808 
California residents. please add 6% sales tax 


Versions available for IBM Professional Fortran 
or MICROSOFT 3.2 Fortran 
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by Robert Blum 


Bill Wilson of Pullman, Washington 
wrote several months ago describing a 
program he had written to simplify 
batch processing. He also included a 
patch to enable PIP to accept null 
command lines from a submit file. I 
am sure you will find, as I did, that 
both are most useful and real time- 
savers. 

The patch described here is not ap- 
proved by DRI; therefore you should 
first backup your distribution version 
of PIP and retain it for use in the un- 
likely event that you experience a 
problem. I further suggest that you 
exercise extreme caution as you mod- 
ify PIP and install it on your system. 
The installation steps listed here are 
straightforward and shouldn’t take 
more than a few minutes to enter; but 
do be mindful not to overwrite any- 
thing of value. 

Listing Two (page 120) is the step 
by step procedure that I used to in- 
stall the null line patch into PIP on 
my system. The first step is to verify 
that the PIP program being modified 
is version 1.5. This is the only version 
of PIP that I know the patch to work 
with successfully. To verify that you 
have the right version of PIP load PIP- 
-COM with SID or DDT and display 
memory between 200h and 240h. At 
0233h should begin the version num- 
ber, which must be 1.5. Next, care- 
fully enter the series of patches listed. 
And finally, save the modified pro- 
gram back onto disk under a new 
name ready for testing. 


CP/M Version 2.2 
Improved Batch 
Procedures 


Batch mode automatic sequential 
| command processing under CP/M 
2.2 using SUBMIT is very inconven- 
ient. Especially when using XSUB 
simply to pass a few parameters to a 


112 


program. For instance, to copy a few 
files from one disk to another re- 
quires that ED or some other text edi- 
tor first be used to build a disk file of 
the desired control statements. Then 
SUBMIT must be run to build yet an- 
other disk file of the very same con- 
trol statements but in a format suit- 
able for the:CGP* to. use; The 
alternative approach is to enter each 
control statement from the keyboard 
as the copy program asks for them. 
Which is fine providing not too many 
files are being copied or you have 
plenty of time. 

The prospect of continually being 
hampered by a lengthy process when 
using batch procedures prompted me 
to develop a stand-alone $$$.SUB file 
generator called BATCH. A source 
listing for BATCH written for the 
Z80 is given in Listing One (page 
114). 

The BATCH program served an- 
other very useful purpose as well. I 
was in the process of developing a 
CCP replacement in conjunction with 
a Computer Science student at WSU 
that was to have a built-in SUBMIT 
file generator. Thus it was important 
to ensure that the $$$.SUB file pro- 
cessor within the CCP replacement 
worked properly. Program BATCH 
was developed for this purpose, as 
well. As presented here it may be 
used to replace the combination of 
ED and SUBMIT for simple BATCH 
mode command processing. 

The null line required for exiting 
from PIP, a line containing a CR only, 
also caused us a problem in the devel- 
opment of the CCP replacement. It is 
not difficult for a program like 
BATCH to produce a null line in a 
command string, but the processing 
of a null line by the $$$.SUB file pro- 
cessor caused problems. That is, it is 
most difficult for the $$$.SUB file 
processor to distinguish between a 








null line intended for exiting from 
PIP and one to designate that the end 
of the $$$.SUB has been found with- 
out a lot of code that uses an exces- 
sive amount of space. 

A $$$.SUB file has a rather tricky 
construction with one command per 
sector stacked in reverse order. The 
$$$.SUB processor opens the $$$.SUB 
file, goes to the end of the file, reads in 
the last sector, decrements the record 
count in the $$$.SUB File Control 
Block (FCB), closes the $$$.SUB file, 
and then executes the command. In 
other words, the $$$.SUB file proces- 
sor peels commands one at a time 
from the end of a $$$.SUB file. The 
crux of the PIP null line problem is 
that the $$$.SUB processor quits and 
erases the $$$.SUB file at the end of 
the file or if the character count is 
zero. 

In order to make XSUB, PIP, and 
the CCP replacement function effi- 
ciently I decided to take a stab at 
modifying PIP. I spent an evening at 
home disassemling PIP on my S-100 
buss Z-80 based system running un- 
der CP/M 2.2. I have a very good dis- 
assembler so the process was not very 
difficult. I was quite amazed by the 
old extra code for paper tape han- 
dling that is unused but still retained 
within PIP. Needless to say, [ was not 
very impressed by what I found with- 
in PIP. However, because of the un- 
used code, it was simple to insert 
some new code to solve the null line 
problem. Extensive testing with 
BATCH, XSUB, PIP, and the CCP re- 
placement indicated that the fix 
worked fine. PIP would now exit on a 
null line or single character line. The 
modified version of PIP would only 
attempt to process an input line with 
two or more characters. 

The next morning while shaving it 
dawned on me that an even simpler fix 
to the PIP null line problem was possi- 
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ble. Since it was Saturday and I did 
not have to go to work, I gave my new 
fix a try with the same results as 
before. 

The procedure for installing the 
simple PIP fix using SID is shown 
here in Listing Two. PIP uses the 
buffered line function for input and 


does a CPI 00 at location 054Fh to 
check the number of characters en- 
tered. The JNZ at 055lh causes PIP 
to exit if and only if the character 
count is zero. That is, a null line is 
required to exit PIP. A simple fix in- 
volves changing the CPI 00 to a SUI 
02 and the JNZ to a JP. PIP will now 


exit if the character count is less than 
2. This modification will allow 
XSUB, PIP, CCP, etc., to all work in 
harmony. 

DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 200. 





CP. Wi M Ex chang e (Text begins on page 112) 


Listing One 
** BATCH version 2.1** 


--NOTES: 


Since the D. R. 
on disk unit A. 
for example, 


an. tO 23; 
OZ, 
GO, 


=e Sse Se Se BS Be Be BE Be BH Be Be Be BH Be Be Be BH Be Be 


>BATCH<RET> 


=e Se Se Se Fe Be Be =e Ses Se Se we 


** PROGRAM DEFINITIONS ** 


CR EQU ODH 
LF EQU OAH 
BDOS EQU 005H 
ORG 100H 
START: LD HL,OOH 
ADD HL,SP 
LD (CPMSTK) , HL 
LD SP,STACK 
LD DE,PROMPT 
CALL PUTSTR 
CALL SETDMA 
CALL GETBUF 
LD HL, INPBUF+1 
LD A, (HL) 
LD CUA 
DEC A 
JP M,BCKCPM 
JP Z,BCKCPM 
BD A,OFFH 
LD (HL),A 
LD A,C 
INC A 
;--ADD A TO HL TO FORM ADDR END 
CALL ADATHL 
LD (HL) ,O1 


° 
’ 


;--SELECT DISK UNIT A-- 


114 


0545 from FE to D6, 
and 0551 from C2 to F2. 
and then do a SAVE 32 PIP.COM. 
version of PIP outputs # as an input request 
symbol and will exit on a null or single 
character input line. 


4) Example use of BATCH: 


->XSUB/PIP/B:=A: 


A program to generate a $$$.SUB submit file 
for immediate processing under CP/M 2.2 


1) The $$$.SUB file is created on disk unit A 
utility XSUB will only operate 
If BATCH is run from disk B, 
the $$$.SUB file will be created 
on disk unit A and then processed from disk A. 
All files referenced in the submit file created 
by BATCH must be on the disk unit from which 
BATCH is being run including PIP and XSUB. 


2) Use DDT to Modify PIP as follows to solve the 
null line PIP exit problem: 


change 053D from 
0550 from OO to 
Exit DDT by entering 
The modified 


3) Input line must not exceed input buffer length 
which is 128 characters. 


XDIR.COM/X/DIR A:/DIR B:<RET> 


; CARRIAGE RETURN 
; LINE FEED 
;ADDR CP/M BDOS FUNCTION CALLS 


;PROG ORG 


;GET CP/M STACK POINTER 
;SAVE IT 

; SET UP NEW STACK 

;PTR TO SIGNON MSG 
;SEND STRING 

;SET DKS BUF ADDR 

;GET INPUT 

;PTR NUM INP CHRS 

;GET NUM INP CHRS 

;SAVE CHR CNT IN C 

;CK IF ANY CHRS IN BUFF 
;NO CHRS, BACK TO CP/M 
;NO CHRS, BACK TO CP/M 
;GET FF=START OF INPUT 
;SET CHR CNT=FF 

;GET CHR CNT AGAIN 

;ADD ONE FOR 01 END CHR 
INP STRING-- 


; INDICATE END OF INPUT 


(Continued on page 116) 
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THE SIMPLE APPROACH 
IS THE SYMBOL APPROACH. 








10 S=0 REAL X(100) 

20 FOR [=1 TO 100 READ*,N,(X(1),[=1,N) 

30 INPUT X 9=0 

40 IF X =Q GOTO 70 DO 10 I=1,N (+/X)-0X<O 

30 S*O*A 10 S=S+X(1) 

60 NEXT I PRINT *,5/N 

70 PRINT S/(-1) END 
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cost much less than Cobol and many other pro- ; ; 
programming four to 10 times faster than with 
gramming languages. Its use of symbols makes it conventional languages. And as your needs grow, 


WORKING IN SHORTHAND — productive. you can easily upgrade to STSC’s APL*PLUS®/PC 

THA System for even more features—like 
Pocket APL allows ie to shrink ’ POCKET APL COSTS 

the length of your programs. Because MUCH < YOU’D EXPECT. 

just a few symbols say what takes lines Pocket APL makes programming 


and lines to say in other programming 
languages. So Pocket APL cuts the 
drudgery and need for tedious sub- 
routines and long lists of commands. 
GET FLEXIBILITY > 
WITH CANNED SOFTWARE. 
Pocket APL is a complete APL 
implementation with enhancements 
like online HELP, windowing, report 
formatting, dual file system, and 
debugging aids. It’s also a powerful 
online calculator. So you don’t have 


easy. And priced at just $95, it’s easy 
on the budget, too. It works with IBM 
PC’s and compatibles and requires 
only 128K. So if problem-solving is 
taking up too much of your time, the 
answer is symbol. Pocket APL. 

To order, or for more information, 
call 800-592-0050. In Maryland, call 
(301) 984-5123. 

Or write STSC, Inc., 2115 East 
Jefferson St., Rockville, MD 20852. 
All major credit cards accepted. 





Problem-solving at the speed of thought. 


Pocket APL uses a soft character set for computers with IBM-compatible graphics board or color monitor; keywords for computers with monochrome. Optional 
character generating ROM can be ordered for IBM PC monochromes or Hercules monochrome boards. 
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Listing One 
CALL INIT 
CALL DELETE ;DELETE OLD $$$.SUB 
CALL MAKE ;MAKE NEW $S$$.SUB 

; SET CURRENT RECORD=0 
LD HL, SUBFCB+32 ;HL=PTR CUR POS IN FCB 
XOR A 
LD (HL),A 


;--CONVERT BUFFER TO UPPER CASE CHRS-- 
;--SKIP ANY LEADING BLANK CHARS IN 1ST STRING-- 
CALL CNVBUF 
LD HL, INPBUF+2 ;HL=PTR INPUT BUFF 
;--COUNT CHRS IN INPUT STRING AND SET HL TO END-- 
COUNT CALL CNTCHR 
;--MAIN COMMAND SCANNING LOOP (RIGHT TO LEFT)-- 


SCNLOP- LD A, (HL) ;GET CHR 
CP OFFH ;CHECK IF DONE 
JR Z,DONE ;QUIT, DONE 
LD C,0 ;BACKUP TO PREVIOUS / 
SCNLP2 DEC HL ;DEC CHZ PTR 
LD A, (HL) ; GET. -CHR 
INC C ; INC COUNT 
;--FF=BEGINNING (END) OF INPUT STRING-- 
CP OFFH ;CHECK IF LAST CMND 
JR Z,PUTCMN ;PUT LAST COMMAND IN SUB FILE 
;--/=BEGINNING (END) OF ONE COMMAND STRING-- 
CP em ;CHECK FOR / BETWEEN COMMANDS 
JR NZ,SCNLP2 7; LOOP. TILE: / “OR: FY 


;--PUT COMMAND INTO SUBMIT FILE-- 
;--USE CP/M DEFAULT BUFFER AREA-- 


PUTCMN PUSH HL ; SAVE POINTER 
DEC C ;DEC FOR / CHR 
INC HL ;SKIP OVER / 
LD A,C 
LD (80H),A ;PUT LENGTH IN BUFFER 
LD DE, 81H 
CALL BLKMOV ;MOVE COMMAND TO BUFFER 
EX DE,HL ;SET HL TO END OF COMMAND 
;-=-ZERO REST OF BUFFER-- 
LD A,127 
SUB A,C 
LD B,A ;SET LOOP COUNT 
LD C,0 
ZROLOP LD (HL) ,C 
INC HL 
DJINZ ZROLOP 
;~-WRITE ONE SECTOR-- 
CALL WRITE ;WRITE BUFF TO SUB FILE 
POP HL ;GET POSITION POINTER AGAIN 
INC A ;CHECK FOR WRITE ERROR 
JR NZ ,SCNLOP ;REPEAT TILL DONE. 
;--DISK ERROR-- 
LD DE,NSPMSG 
JP SERMSG 


;--DONE, BACK TO CP/M-- 
;--DO A SYS RESET TO START SUBMIT-- 
DONE: CALL CLOSE 

JP OOOH 


:--COUNT THE CHARS IN THE COMMAND-- 
; MOVE HL TO END OF COMMAND 


CNTCHR: LD G4 ; INIT CNT=1 
CNTLOP: LD A, (HL) 

CP ODH ;END IF CR 

RET Z 

CP 01H ;END IF CHR=01H 

RET Z 

INC C 

INC HL 

JR CNTLOP 


;--ADD A TO HL-- 
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source or include file, all you do 
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CP iA M Ex C hang e (Listing Continued, text begins on page 112) 
Listing One 


ADATHL ADD At 
LD ane: 
RET NC 
INC H 
RET 
;--BLOCK MOVE-- 
;  HL=SOURCE, DE=DESTINATION, C=NUMBER OF CHARS 
BLKMOV LD B, OOH ; ZERO B 
LDIR 
RET 
;--CONVERT BUFFER TO UPPER CASE-- 
CNVBUF LD HL, INPBUF+2 
LD D,H 
LD E,L 
;--SKIP LEADING BLANK CHARS-- 
SKPLOP LD A, (HL) 
CP ! t 
JR —*NZ, CNVLOP 
INC HL 
JR SKPLOP 
CNVLOP CALL GETCHR 
LD (DE),A ;MOVE CHR 
INC DE 
INC HL 
cP 01H ;END ? 
IR NZ ,CNVLOP 
RET 
;--GET NEXT CHAR AND TO CONV UPPER CASE-- 
GETCHR LD A, (HL) ;GET CHR 
cP O7BH ; ABOVE z ? 
RET NC 
cP 061H ;BELOW a ? 
RET ¢ 
AND O5FH ; LOW TO UP 
RET 


;--GET BUFFERED LINE OF COMMANDS-- 


GETBUF: LD DE, INPBUF ; INP BUFF ADDR 
LD C,10 
CALL BDOS 
RET 
;--SET DISK BUFFER ADDRESS(DMA)-- 
SETDMA LD DE ,080H ;BUFF ADDR 
LD C,26 
CALL BDOS 
RET 
;--WRITE CONTENTS OF BUFF TO SUB FILM-- 
WRITE: LD DE,SUBFCB 
LD C,21 
CALL BDOS 
RET 
;--CLOSE $$$.SUB-- 
CLOSE LD GC, E6 
LD DE, SUBFCB 
CALL BDOS 
RET 
;--MAKE NEW $S$.SUB FILE-- 
MAKE: LD DE,SUBFCB 
LD CO, 22 ; MAKE 
CALL BDOS 
INC A ;FF=NO SPACE 
JP Z,NOSERR ;NO SPACE ERROR 
RET 
;--DELETE ANY OLD $$$.SUB FILE-- 
DELETE: LD DE,SUBFCB 
LD C,19 


(Continued on page 120) 
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. — general purpose text 





__- processor, the MIX  . oS 
- packed with features that ee | it o : 


useful with any language. It has_ 


auto indent for structured © 


languages like Pascal or C. It has 
automatic line numbering for 
~ BASIC — character o) 1 


a. English. 


a A utility for defining terminal 





features (smart features — 


wom with any terminal. Over 30 o : 


2 as Cegieaiisd are Seed to hen 
just like WordStar. If you don’t 


like the WordStar layout, simply . a E 
oe a it. ae ite can De — 





= The MIX —_ dines a ] — 


sequence ofcommandstobe J. 
oo executed with a single keystroke. —- 





2 MSDOS i isa trademark of Microsoft 
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s Custom asus Files. 


—— Custom keyboard layouts and 
-Macro commands can be saved — 
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_ different setup fileforeach 

language you use. The editor 

_ automatically configures cee: 

 ~—-s using a setup file. | | 


. Command Mode 


Command mode allows any 
— editor command to - executed 


ae ‘Command inode 


— of t he ‘most popular termin nals are makes it easy to master the ae 


8 Show File/ eto) File. 
Input/Output File | 
: - a Dees ee Save File 


= Cursor Commas 
= i Left/ Right/ Up/ Down > | 

_ Tab Right/Tab Left — 
Forward Word/ Backward Word _ 


_ Beginning of Line/End of Line - 
Scroll Up/ScrolliDown © 
—- Window Up/Window Down 

= . Scroll Left/ Scroll , — 


- Block Commands - 


8 - ‘Copy/ Move/Delete ee 
 -—Read/Write 
oe Lower ia Case ss 
















| - Find a, Repice eel 


: _ : Delete Line/ Undelete Line 


of me commands: ee 





Replace Global/Query Replace < - 


: Insert Mode/ Overwrite Mode . — 
Open Line/Join Line — - 

_ Duplicate Line/ Center Line 
_ Set Tab/ Clear Tab 
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Listing One 
CALL BDOS 
RET 
:--INIT AND SELECT DISK A-- 
INIT: [ED C,13 ; RESET 
CALL BDOS 
RET 


;--SEND STRING TO TERMINAL-- 
; --DE = POINTER TO STRING ADDRESS --— 


PUTSTR LD c,9 
CALL BDOS 
RET 

; --MESSAGES-- 

PROMPT DEFB CR,LF, 'BATCH v2.1 Submit File Generator' 
DEFB CR,LF,'for use with XSUB under CP/M 2.2  .' 
DEFB CR,LF,'Enter Command String and then <RET> .' 
DEFB CR,LF,'Separate Each Command with a / Symbol .' 
DEFB CR,LF,'/X may be used to exit modified version of PIP 
DEFB CR,LF,'->$' 

NSPMSG DEFB CR,LF,'Disk Full--No More Space' 


DEFB CR, LE;O78 ;, OTH, '$’ 
NDSMSG DEFB CR,LF, 'Directory Full--No More Space'! 
DEFB CH bry CFR; OTR," S' 


NOSERR LD DE,NDSMSG 


;--SEND ERROR MESSAGE AND BACK TO CP/M-- 
SERMSG CALL . PUTSTR 
BCKCPM LD HL, (CPMSTK) 
LD SP,HL ;RESET STACK POINTER 
RET ;BACK TO CP/M 
;-- FILE CONTROL BLOCK-- 
SUBFCB DEFB OH ;DRIVE CODE 
DEFB '§ss SUB! ; FILE NAME 
DEFB OH,OH,OH,OH 
DEFS 17 


;--CP/M STACK STORAGE-- 
CPMSTK DEFW OOH 
;-- INPUT BUFFER AREA-- 


INPBUF DEFB 128 ;BUF LENGTH 
BUFCNT DEFB OH ;CHRS IN BUF 
DEFS 128 
;--STACK AREA-- 
DEFS 20 ;SIZE OF STACK 
STACK EQU S$ ;BOTTOM OF STACK 
END End Listing One 


Listing Two 


B>SID PIP.COM 

CP/M 3 SID - Version 3.0 

NEXT MSZE PC END 

1EOO 1E00O 0100 C8FF 

#D200, 240 

0200 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 COPYRIGHT (C) 
0210 20 31 39 37 39 2C 20 44 49 47 49 54 41 4C 20 52 1979, DIGITAL R 
0220 45 53 45 41 52 43 48 2C 20 20 50 49 50 20 56 45 ESEARCH, PLE -VE 
0230 .S2 93.20.32; 2635 03-01-06; 01: 00° 24 24-24-20 20 RS 3.65 oo es. sss 
0240 20 

#S053D 

O53D 2A 23 

OS3&.CD.. 

#SO54F 

O54F FE D6 

0550 00 02 

6851 .-C2 2 

0552.:5E. -. 

#WPIPNEW.COM,100,1E00 

OO3Ah record(s) written. 


#G0 Sr 
End Listings 
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SPOTLIGHT ON 
COMPUTER SOLUTIONS 





WW eliabieclatie : Networking 


BE THERE! | BE THERE! 
For Computer Solutions To ‘ To Learn About 


w Office/Factory Automation : a Linking PCs to MainFrames 
a Engineering/Scientific 7 , w Multi-User/Tasking 





Applications Operations 
= Text Processing April 24-26 = Networking 
m Database Access San Francisco Moscone Center w Clusters/Device Sharing 


An exclusive production of 
Computer Faire, Inc./ 

A Prentice-Hall Company 
617/965-8350, 415/364-4294 





Don't Miss UNIX Systems Expo/85 for: 


a Engineers w Vertical Marketers 

w Scientists m Systems Integrators 

m= Corporate Users w Distributors 

m VARs a Dealers 

w Software Developers w Retailers *UNIX is a trademark of AT&T Bell Laboratories 


gy * Please send me information prior to April 1st on: 
UND xX 0 Exhibiting O© Attending 
Name 
EX. 30/3 


Title 


Company 


Address 


City/State/Zip 


Phone 
(DD) Please send to: Computer Faire, Inc. 181 Wells Avenue Newton, MA 02159 
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by R. P. Sutherland 


Hardcopy 


Three articles in this issue illustrate 
techniques to generate various non- 
standard printed characters. Despite 
their present utility, they will soon 
seem curious and quaint. The prolifer- 
ation of the Macintosh and Mac-alike 
machines as well as the porting of 
Donald Knuth’s TpX to micros (in 
tandem with the availability of laser 
printers) will result in easier ways of 
coaxing two and three dimensional 
graphic concepts into hardcopy. The 


| | Gomputer Processor 
_ | Hewlett-Packard 3000 
Hewlett-Packard 1000 16-bi 
| DEG PDP-11/44 _16- bie 
: | Plexus, Onyx | - 28000 _ 
es 3086/88 


" “Hewlett Packard 2800 ew, 


| Sun Microsystems _ _ Mc68000 - 


mceso00 =|: N 


_ | Barry Smith 


| Aepe Macintcsh, Lisa | MC68000 


1 = asscomp Lo aeus ih | 


| PERQ/ICL 
IBM PC, XT, AT 
| IBM XT, AT 





IBM XT, AT 
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“small” 


| Contact . 
| John Johnson 


| Dick Gauthier 


ae Hickey 


| Jim Sterken 
| Rich Furuta 


__| Dave Kellerman L_ 
Bart chids 


| ek Wallensiein 





8088, 80286 “David Fuchs 


8088, 80286 | Ronny Bar-Gadda 446 College Av., Palo Alto, CA 94306; 415-326-1275 


Figure below shows a sample of out- 
put from Tp Xas well as a list of ven- 
dors who carry micro implementa- 
tions. 


Publications 


Privacy Journal: An Independent 
Monthly on Privacy in the Computer 
Age contains the seeds of the antidote 
to 1984. Subscriptions: $89.00 per 
year, $109.00 overseas. Contact Kath- 
ryn Ritter, Privacy Journal, P.O. Box 





703-471 -0233 


_. __| P.Q.; §14-935-4222 
Jim Crumly 


Norman Naugle - 2 
Les. 409-845-3104 


i 503-292-4799 


609-764-1720 


[seep van toa Océ, St. Urbanusweg 43, 5900 MA Venlo, Holland 
8088, 80286 TexéT’, 163 Linden Lane, Mill Valley, CA 94941: 415-388-8853 


Dept. of Computer Science, Stanford University, Stanford, CA 


94305 


Figure 


implementations. 


Organization, Address | 
Texél’, 163 Linden Lane, Mill Valley, CA 94941; 415-388- 8053 
JDJ Wordware, Box 354, Cupertino, CA 95015; 415-965-3245 : 


TYX, 11250 Roger Bacon Dr., Suite 16, Reston, VA 22090: 


_ ae of Gone Science, Yale cee Box 2158, Yale 
 . Station, New Haven, CT 06520; 203-436-3761 


cos Information, 6272 Notre Dame West, Montreal, H4C 1V4, 


| Hewlett-Packard, Box 15, Boise, ID 83707; 208-376-6000 x2869 
‘| Textset, Box 7993, Ann Arbor, MI 48107; 313-996-3566 


- | University of Washington, Computer Science, FR-35, Seattle, 
_| WA 98195; 206-543-7798 


: - Mainoiaties Dept., Texas A&M University, 


| Kellerman & Smith, 2343 SE 45th Av., Portland, OR 97215; 


Station, TX 77843. 409- 845-5470 _ 
Comcon, 5 Underwood Ct., Delran, NJ 08075: 





15300, Washington, D.C. 20003 
(202) 547-2865. Reader Service No. 101. 
Apple Access: User’s Guide to Ap- 
ple Computer-Related Periodical 
Literature for $19.95 is a reference 
for Apple literature. Contact Lee 
Webber, Stony Point Publications, 
Box 4467, Petaluma, CA 94953 (707) 
778-8754. Reader Service No. 103. 

The Datapro Complete Guide to 
Dial-Up Databases profiles more 
than a thousand accessible data bases 
in over 200 subjects. Contact Karen 
Morrell, Datapro Research Corpora- 










College Station, TX 
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Try a mainframe tradition 
on your microco 


| BY=ts), mm Me) ®) . Rack Mount 
Capacities Capacities 


1000 mb |S : , : 1000 mb 


700 mb <a : . | 960 mb 
335 mb Met 480 mb 
170 mb | 

85 mb 


The NMS PC 8000 Series 
¢ 8-inch technology-based storage 
fi e Access times of 15 milliseconds 


... National Memory Systems provides 





Desk top storage to 700 megabytes: 
With enhanced features for 1985, the NMS PC 8000 stays ahead of any herd with compact 8-inch 
technology Winchester Disk Storage systems ... used in mainframe and minicomputer installations. 
NMS originated use of these techniques in micro applications more than 18 months ago. We set 
the standard for high-capacity, high-performance mass storage systems. 


Compatibility: 
IBM PC-AT, XT, standard PC, and all compatibles, as well as aversion torun your Texas Instruments 
PC, too! Ask about our multifunction, single slot disk tape controller. 


Ideal for networking and distributed processing: 


You gain up to 5 times the speed of 5%-inch technology disk systems. NMS Disk Systems will not 
impose limitations on your computer. 


File-by-File Tape Back-up: 
Add our stand-alone PC.25 60 mb File-by-File and streamer ‘4-inch tape system, or 12-inch PC 9000 
Series, ANSI-IBM format compatible 9-track system, and you have the total solution. 


Laser Optical Disk: 


Be revolutionary with the 1 gigabyte NMS PC 007, a non-erasable archival system that gives you 
1000 megabytes of on-line data at 1/20th the cost of tape media. 


Easy Upgrades: 
Mix disk capacities, disk with tape, disk with Laser Disks to meet National 
your needs. One single-slot controller does it all. Memory 
Call Us: : | Systems 
All products provided by NMS are protected with our standard CORPORATION 


1-year warranty, and optional Nationwide field services program. 


355 Earhart Way 
Livermore, CA 94550 


Phone 415-443-1669 15) 4-108 


TWX 9103866006 
TELEX 821892NMSUD 
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TI NaturalLink: user-friendly software 
with a developer-friendly tool kit. 


TI makes it easier for developers to 
make software easier for PC users. 
TI's innovative NaturalLink™ 
interface eliminates complex com- 
mands by translating them into 
the user’s language: plain English. 
And the TI NaturalLink tech- 
nology tool kit lets you develop 
interfaces for new or existing soft- 
ware in a way that speaks your 
language: simplicity. And better 
sales. The tool kit contains all 
the software and manuals you 
need to design, develop and test 


NaturalLink is a trademark of Texas Instruments 
Incorporated. IBM is a registered trademark of 
International Business Machines Corporation. 


©1985 TI. 


NaturalLink applications — 
quickly —on the TI Professional 
Computer. And our NaturalLink 


Do ee ee ee ee ee ee 


You’re speaking my language, TI. 


[_] Please mail me more information. 


[_] Contact me to arrange a 
demonstration. 


ZIP 


Mail to: Texas Instruments Incorporated 
PO. Box 809063, Dept. DCC063 Y3514C 
Dallas, TX 75380-9063 


IBM® option contains the 
linkable object code you need to 
run your programs on the IBM 
PC, XT, AT or compatibles. 

For more information or a 
demonstration, call us at 
1-800-527-3500 or mail the cou- 
pon. We'll prove how developer- 
friendly we can be. 





TEXAS 
INSTRUMENTS 


Creating useful products 
and services for you. 


tion, 1805 Underwood Boulevard, 
Delran, NJ 08705 (800) 257-9406 
(in New Jersey 609/764-0100). 
Price: $145.00. Reader Service No. 105. 

Frank Gaude’s Z-System Newslet- 
ter for ZCPR3 users announces a Z- 
system electronic bulletin board at 
(213) 670-9465. Echelon, Inc., 101 
First Street, Los Altos, CA 94022. 
Reader Service No. 107. 

MSX World: The Newsletter Dedi- 
cated to the World of MSX Comput- 
ers is published by MSX World, 39 W. 
32nd Street, Suite 800, New York, 
NY 10001. Reader Service No. 109. 


C 


A demonstration of the Safe Runtime 
Analyzer (Catalytix Corporation) is 
available at (617) 497-4829: 1200 
baud, Unix System III, login is safec, 
password is catalytix. The demon- 
stration allows one to upload C pro- 
grams for analysis by the Safe C 
Runtime Analyzer, twenty-four 
hours a day. Contact Janice Tosi, Ca- 
talytix Corporation, 55 Wheeler 
Street, Cambridge MA 02138 (617) 
497-2160. Reader Service No. 111. 

The C lib, a C function library, pro- 
vides over 200 routines including 
functions to convert floating point 
numbers from MicroSoft to 8087 
NDP format and vice versa. Price: 
$145.00 from Vance Info Systems, 
2818 Clay Street, San Francisco, CA 
94115 (415) 922-6539. Contact: Car- 
la Radosta. Reader Service No. 113. 

A mathematics library compatible 
with most C compilers is available for 
$100.00 from Micro International, 
Box 47, Route 36, East Fairfield, VT 
05448 (802) 827-3827. Contact: Ber- 
nard Hussels. Reader Service No. 115. 


MSDOS 


A special version of Microsoft’s 
MSDOS 2.11 operating system is 
available for S-100 computers. SB- 
86, from Lifeboat Associates, re- 
quires a CompuPro System Support I 
card with G086 EPROM, and at least 
64K of 24-bit addressable RAM. The 
installation routine supports both in- 
terrupt-driven and non-interrupt- 
driven console I/O. The price of SB- 


Dr. Dobb’s Journal, April 1985 











































ECOSOFT@INC. 


An Optimizing, hassle-free 
C Compiler for the 8086-8088. 


Ecosoft’s Eco-C, the performance leader among full C 
compilers for the Z80, is now available for the 8086- 
8088 running under MSDOS (2.0 or later). Eco-C has 
features not found in any other 8086-8088 C compiler. 


* Over 100 library functions. Since they follow UNIX standards, your 
programs are highly portable in “both’’ directions (‘‘up’’ to a UNIX 
machine or ‘‘down”’ to our Z80 compiler). This means new markets 
for your software at minimum development cost. 

* A single library. No more “dual” libraries and trying to remember 
what has to be linked with what. Your programs automatically take 
advantage of an 8087 if one is present at runtime. 

* A single floating point answer. No more “fuzzy floating point’: 
your programs produce the same answers whether the floating point 
is done in hardware (8087) or software. 

* Error messages in English. No more cryptic numbers to look up. We 
tell you where the error occurred, what was found there, and what 
should have been there. 

* Strict syntax parsing. LINT is going to uncover fewer surprises 
because our parser looks hard at the details. 

* Efficient code. The optimizer pass of the compiler generates 
assembler code in Intel mnemonics that rivals that produced by 
compilers costing twice as much. 


The price of the Eco-C compiler is $250.00 (all 
versions), including the user’s manual, and is designed 
for use with Microsoft’s MASM (or compatible) assembler 
and linker. When ordering, please specify disk format 
and whether you want the Z80-CP/M or 8088-MSDOS 
version of Eco-C. 
Ecosoft Inc. 

6413 N. College Avenue 


Indianapolis, IN 46220 
(317) 255-6476 


Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digital Research), Z80 (Zilog), 8086, 8087, 8088 (Intel). 
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FORTH: FOR Z-80°, 8086, 68000, and IBM® PC 


Complies with the New 83-Standard 









GRAPHICS e GAMES e COMMUNICATIONS e ROBOTICS 
DATA ACQUISITION e PROCESS CONTROL 


@ FORTH programs are_ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/O ports. 

@® FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 


plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 





FORTH Application Development Systems 
include interpreter /compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M II, $100.00: 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00: 
8086 FORTH for CP/M-86 or MS-DOS, $100.00: 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00; 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 





y ; 
Laboratory Microsystems Incorporated 
am | | Post Office Box 10430, Marina del Rey, CA90295 & 
Phone credit card orders to (213) 306-7412 
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86 is $275.00, available from 
Lifeboat Associates, 1651 Third Ave- 
nue, New York, NY 10128 (212) 
860-0300. Contact: Doug Barth. 
Reader Service No. 117. 

MasterForth Version 1.0 provides 
Forth-83 for the IBM PC family. 
MasterForth includes an 8088 mac- 
ro-assembler and full interface to 
MSDOS 2.1. Price $125.00 from Mi- 
croMotion, 12077 Wilshire Boule- 
vard #506, Los Angeles, CA 90025 
(213) 821-4340. Contact: Linda 
Kahn. Reader Service No. 119. 

MJ, from Mother Jones’ Son’s 
Software Corporation, is a utility that 
co-exists with MSDOS and permits 
one to open a window and reassign a 
key up to a thousand keystrokes. Also, 
MJ allows one to speed up the screen 
cursor in five increments and to ex- 
pand the keystroke buffer from six- 
teen characters to over a thousand. 
MJ is not copy protected but if you 
abuse your backup privilege, you for- 
feit your soul to the author of the pro- 
gram. Price: $30.00 for object pro- 
gram, or $70.00 for object program 
and assembly language source code. 
Mother Jones’ Son’s Software Corpo- 
ration, 6310 Caballaro Boulevard, 
Buena Park, CA 90620 (714) 522- 
7762. Reader Service No. 121. 

Microcomputer owners who depre- 
ciate equipment for tax reasons are 
often approached by the IRS and 
asked to account for every minute 
spent on the computer. TaxLog is a 
product that keeps track of how 
much time one spends on various ac- 
tivities. TaxLog calculates the per- 
centage of tax deductible use and 
prints a choice of reports that meet 
tax code requirements. Taxlog is part 
of Bellsoft’s ““Pop-Up” line of desk 
tools. TaxLog costs $39.95 from Bell- 
soft, 2820 Northrup Way, Bellevue, 
WA 98004 (206) 828-7282. Contact: 


Richard Leeds. Reader Service No. 123. 


Macintosh 


The Public Domain Exchange an- 
nounces over a hundred public do- 
main programs for the Macintosh. A 
listing of programs is available for 
$2.00. An introductory set of the 
three most popular disks and a cata- 
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log is $28.00. The Public Domain Ex- 
change, 673 Hermitage Lane, San 
Jose, CA 95134 (408) 942-0309. 
Contact: Judy Rosenthal. Reader Ser- 
vice No. 125. 

PortaAPL is now available for the 
Macintosh (512K). Price: $275.00. 
Portable Software, 60 Aberdeen Av- 
enue, Cambridge, MA 02138 (617) 
547-2918. Contact: Richard Smith. 


Reader Service No. 127. 


Hard Disks 


For a year now we have been trying 
to wear out a Davong 10 megabyte 
hard disk by driving our Davong 
Multilink system (our in-house LAN) 
24 hours a day. So far it has been so 
reliable that we have become careless 
about backing anything up! Davong 
now has an 86-megabyte hard disk 
for the IBM PC. Davong’s hard disk 
for the Macintosh is called Mac Disk. 
Mac Disks range from 10 to 43 me- 
gabytes and come with software that 
allows the user to configure and 
maintain multiple volumes. Contact 
John Houthton, Davong Systems, 
Inc., 217 Humboldt Court, Sunny- 
vale, CA 94089 (408) 734-4900. 
Reader Service No. 129. 

Data Technology’s TeamMate line 
of hard disks includes a Kodak-based 
3.3 megabyte 5 1/4 inch floppy. I 
found the TeamMate hard disk easy 
to install and reliable. The Kodak 
floppy can be used to back up the 
hard disk or it can be used as an addi- 
tional volume. The 3.3 megabyte 
floppy makes sense as a replacement 
to the AT’s 1.2 megabyte drive be- 
cause it more than doubles the capac- 
ity and it can write 48 TPI floppies 
more reliably than the AT’s drive. 
Data Technology Corporation, 2775 
Northwestern Parkway, Santa Clara, 
CA 95051 (408) 496-0434. Contact: 
Steve Roberts. Reader Service No. 131. 


Single Board Computers 


ForthCard, a single board computer 
on the STD bus with Forth kernel 
built in, features on-board EPROM 
programming and supports compila- 
tion of code from another computer. 
ForthCard is $499.00 in single quan- 


tities. An OEM ForthCard is also 
available. Contact: Ken Arnold, Hi- 
Tech Equipment Corporation, 9560 
Black Mountain Road, San Diego, 
CA 92126 (619) 566-1892. Reader 
Service No. 133. 

Motel Computers Ltd. has a 
68000/Z80 based single board com- 
puter called CYPHER. Motel Com- 
puters Limited, 174 Betty Ann Drive, 
Willowdale, Ontario M2N 1X6 
(416) 221-2340. Contact: Victor 
Pierobon. Reader Service No. 135. 


Sundries 


Maynard Electronics, Inc., offers a 

board that enables an IBM PC to run 
programs in DOS 3.0 that take ad- 
vantage of extended memory. There 
are no software drivers required and 
the company claims the system runs 
as fast as the AT. Maynard Electron- 
ics, 430 Semoran Boulevard, Suite 
207, Casselberry, FL 32707 (305) 
331-6402. Contact: David Knapp. 
Reader ServiceNo. 141. 
The Public Domain Users Group has 
expanded to include Commodore 64 
users. For information and listings of 
the library disks, send SASE to Public 
Domain Users Group, P.O. Box 
1442, Orange Park, FL 32067. Reader 
Service No. 137. 

CommuniTree Group’s First Edi- 
tion (for IBM PC) is a program that 
lets people create dial-up information 
and conferencing services. First Edi- 
tion can be used on PBX and PABX 
systems. The San Francisco Com- 
munilree Group provides an on-line 
newsletter and update service. ““The 
FIG Tree,” in Hayward, California, is 
a network for Forth programmers 
(415) 538-3580. First Edition is 
priced at $250.00. CommuniTree 
Group, 1150 Bryant Street, San Fran- 
cisco, CA 94103 (415) 861-TREE. 


Reader Service No. 139. 


DD) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 201. 
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IN-CIRCUIT EMULATOR 
For 8050, 8049 and 8048 piC’s 


235 SK oR 
E58 fe OS 
corponocemmaconnecenctineen 





3 {3 (3S & 
eee premorenenreperans 


For Hardware/Software Design the E232-48 
replaces the target microcomputer for complete 
emulation under control! of the host computer. 
It emulates all of the above uC’s plus their 
ROM-less and CMOS versions. It’s features are: 

* Real time emulation up to 11 Mhz. 

* Full 4K Emulation Memory. 

% Hardware Breakpoints. 

* In-line Assembler and Disassembler. 

% Upload, Download & Terminal mode drivers 

for |BM-PC, CP/M-80 and CP/M-86 are included. 

Cross Assemblers for 8048 series and other uP’s 
running on the above host systems-From........... $150 
E232-48:in-crtcuit- emulator... 5 a ce $1795 


SIGNUM SYSTEMS 
726 Santa Monica Blvd. 
Santa Monica, CA 90401 (213) 451-5382 
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A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ 


SNOBOL4 language with its superb pattern-matching 


—the entire 


facilities © Strings over 32,000 bytes in length ® Integer 
and floating point using 8087 or supplied emulator ra 
© ASCII, binary, sequential, and random- 


ps 
access |/O * Assembly Language inter- Pai ? 
face ® Compile new code during 0 iA bd 
program execution ® ciate aw om 
SAVE files © Program 
and data space or, we" With 


to eae: bytes rg ws e & over 

we OF. 100 sample pro- 

we 4} grams and functions 

ae “eo 5 wae 
qr? 
met oe For all 8086/88PC/MS-DO 

Pas ; 128K minimum 5% DSDD. 

<o* 

as? Send check, VISA, M/C To: 


Prentice-Hall, Inc. 


B&P Div. Attn. S. Dragin Englewood Cliffs, NJ. 
800-624-0023 outside New Jersey 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to a ZILOG™ or 8080 source 
code MAC file with insertion of all public 
and external symbols. 


@ REL/MOD lists library modules 
@ REL/VUE displays the bit stream 


e@ 50 page manual with examples 


@ free brochure available 
@ REL/PAK includes all of the above 


REL/PAK for 8080 only 
REL/PAK for Z80 & 8080 
on 8”"SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[CE MicroSmir 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 
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Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 

Multitasking 
Handles interrupts 
Fast native code 
Floating point 


Windowing 
Interactive 
Compiles quickly 
No runtime fee 


MTBASIC is a true native code compiler. It runs Bytes's Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 


MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


_SOFIAID, Inc. 


P.O. Box 2412 Columbia,MD 21045-1412 
301/792-8096 








FOR THE BEST OF US... 
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A COMPLETE 68000 & Z 80 


SINGLE BOARD COMPUTER SYSTEM 
WITH ULTRA-HIGH-RES GRAPHICS!! 





FREE FREE 
68000 FORTH 68000 FORTH 
AND AND 
CYPHER-DOS 3 6CYPHER-DOS 

© 68000 & 760 DUAL PROCESSORS (BEST OF BOTH @ULTRA HIGH RESOLUTION GRAPHICS. 128K 
WORLDS! GRAMMABLE UP TO 1024 x 1024 RESOLUTION 


@ 256K to 1 MEGABYTE MEMORY. (4164 OR 41256 DRAM) NEC 7220. GREAT FOR CAD SYSTEMS!) 
“ox JBLE DENSITY FLOPPY DISK CONTROLLER (8" pin TIME CLOCK (MULTITASKING CAPABILITY!) 
3: 7 TWO CHANNELS OF D/A AND A/D, 12 BIT 
eDma CONTROLLER FOR FAST IMAGE TRANSFERS TO/ © RESOLUTION (MUSIC! ROBOTICS! LAB WORK’) 
FROM VIDEO MEMORY. (INT 8237) @ 16K TO 64K MONITOR EPROM 
@ 2 RS232 SERIAL PORTS (ZSIO) @ 4K TO 64K STATIC RAM 
@ 24 BIT ADDRESS ihe ace i FOR 280 @ PROGRAMMABLE BAUD RATE GENERATOR 
@4 LAYER PCB (Q's x @ PARALLEL ASCII KEYBOARD INPUT 
@ RUNS CP-M-80 2.2 cP. re 80 3.0, CP-M-68K @FULL 68000 EXPANSION BUS (60 PIN HEADER 
BUFFERED) 


eMANUAL $s CONTROLLER. SERIAL 1/0. ASSEMBLED 
RO EOS Z80 BIOS, 68000 Bios” a0 
fTOR AND UTILITIES 
2 INIMUM OF RONED eCYeHER 
VO. 128K 


AND TESTED 
99.95 PARTS KIT “ 

WITH 68000/260 Seria eKEYBOARD $s 95 
2 4K S RAM AND DISK eee ye e SWITCHING POWER SUPPLY 5 
ASSEMBLED ANDI TESTED ig e@CASE 95 

RTS Ki HARD DISC INTERFACE PLUG-IN CARD 


MOTOROLA fie INTEL 


MOTEL COMPUTERS LIMITED 

174 BETTY ANN DRIVE, WILLOWDALE, 

TORONTO, ONTARIO, CANADA M2N 1X6 
(416) 221-2340 


sCOMPLETE CYPHER WITH 256K DRAM. ‘BK SIDEO 
7220. REAL TIME CLOCK. A/D D/A DISC 


SARE INU S DOLLARS 
PING. EX pice ate vba Pa 






LL ADE APPROXIM. TOs 
nwe neceh ve yOUR ORDER. VISA MC. 


PRICES caer root ANGE WITHOU Welle 
CPM ISAT DEM K OF DIGITAL RESEA\ 


Circle no. 56 on reader service card. 


I 


PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
256Kx1 150 ns 
128Kx1 150 ns 
64Kx1 150 ns 
64Kx1 200 ns 

EPROM 
32kKx8 250 ns 
16Kx8 250 ns 
8kx8 200 ns 
8Kx8 250 ns 
4Kx8 250 ns 
2kx8 450 ns 

STATIC RAM 
6264LP-15 skxs 150 ns 
6116LP-3 2kxs 150 ns 


256K 
128K 
64K 
64K 


27256 
27128 
27C64 


2764 
2732A 
2716 


INCREASE XT MOTHERBOARD TO 640 Kbyte 
QUANTITY ONE PRICES SHOWN 


CONSUME NO EXPANSION SLOTS! $181.80 


OPEN 6% DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts Poco 
MICROPROCESSORS UNLIMITED 
.000 S Peoria Ave. 
BEGGS OK 7421 (918) 267-4961 


Prices shown above are for March 11, 1985 
Please call for current pnces. Prices subject to chai Please expect h ft Or lower prices on 
some parts due to meng | & demand and our changing costs. Shipping & insurance extra. Cash 
discount prices shown. Smail orders received by 6 PM CST can usually be delivered to you by 
the next morning, via Federal Express Standard Air (« $6.50! 





Circle no. 64 on reader service card. 


Users’ 
Group 


Over 40 volumes of public 
domain software including: 


® compilers 

® editors 

e text formatters 

® communications 
packages 

e many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
415 E. Euclid ¢ Box 97 
McPherson, KS 67460 

(316) 241-1065 





Circle no. 17 on reader service card. 


BYSO LISP 


has features that will delight 
both beginners and advanced 
programmers. A fast, reliable 
and complete interpreter for the 
IBM PC and true compatibles. 
$125 includes 100 pg. ref. 
manual and application notes 
that put you months ahead on 
useful projects (making a hybrid 
language with C, accessing 
system functions and I/O ports, 
building your own dialect, etc.). 


LEVIEN INSTRUMENT CO. 


P.O. Box 31B 
McDowell, VA 24458 
703-396-3345 


IBM PC is a trademark of the IBM Corp. 

















Circle no. 25 on reader service card. 


68000 Cross Assembler 
Motorola VERSAdos + Compatible 


Assembler, Linker, Object and Macro Librarian. 
Absolute and Relocatable Code, Macros, In- 
cludes, and Conditional Assembly. Structured 
Programming. No limit on source file size. 


Unix (C) Compatible Source 
$700 


PC/DOSt CP/M-86* 
$250 $250 


Manual: $20 
(refundable) 


CP/M-80* 
$200 


@ farbware 


1329 Gregory 
Wilmette, IL 60091 


* Digital Research trademark. tIBM trademark. + Motorola trademark 


(312) 251-5310 
after 5 p.m. 





Circle no. 57 on reader service card. 


Mac 








Inker 


Re-ink any fabric ribbon 
AUTOMATICALLY for less 
than 5¢. Extremely simple 
operation with built-in 
electric motor. We have a 
MAC INKER for any printer: 
cartridge/spool/harmonica/ 
zip pack. Lubricant ink safe 
for dot matrix printheads. 
Multicolored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
maine customers. 































Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals (or two 
computers) with MAC 
SWITCH. Total satisfaction or 
full refund. 

$99 00 


aE, 


Frise Pruter 


N03. reese, 









Order toll free 1-800-547-3303 


Dealer inquines welcome 
= 
Cz=imputer 
{2 
Friends 


6415 SW Canyon Court 
Portland, Oregon 97221 
(503) 297-2321 


Circle no. 31 on reader service card. 
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April 1985, #102 


Dr. Dobb's journal 


. Your primary job function: (Check one only) 


CL) Company management (Pres., V.P., Treas., 
Owner, Gen. Mgr., Mktg. Dir.) 

CL) Computer systems management (V.P. EDP, 
MIS Director, Data Processing Mgr., Data 
Communications Mgr., Network Planner) 

LC) Engineering management (V.P. Engrg., Chief 
Engr., Tech. Director, Dir. R&D) 

CL] Systems integrators (Systems Designer, Project 
Engr., Systems Application Engr., Technical 
Staff Members) 

CL) Consultants (Computer/EDP/Data Communi- 
cations Consultant) 

L] Educators (Educational users and instructors 
of computer technology} 

CL] Systems/Programming specialists—mini-micro 
systems 

CL) Other (Please specify) 


. Which languages are you MOST interested 


in? 

CL) BASIC eee 0) Pu! 

C) Fortran CL) LISP CJ APL 

CL) COBOL ~=s— LU) Prolog L) Logo 

C) Pascal (] Ada CJ Smalltalk 
L) Modula-2 (J) Forth Other 


C. What is the operating system? 


L] CPIM (or derived) 

LC) UNIX (or derived) 

CL) MS-DOS (or derived) 
(J Other 


April 1985, #102 


Dr. Dobb's Journal 


. Your primary job function: (Check one only) 


CL) Company management (Pres., V.P,, Treas., 
Owner, Gen. Mgr., Mktg. Dir.) 

L) Computer systems management (V.P. EDP, 
MIS Director, Data Processing Mgr., Data 
Communications Mgr., Network Planner) 

CJ Engineering management (V.P. Engrg., Chief 
Engr., Tech. Director, Dir. R&D) 

LJ Systems integrators (Systems Designer, Project 
Engr., Systems Application Engr., Technical 
Staff Members) 

CL) Consultants (Computer/EDP/Data Communi- 
cations Consultant) 

CL) Educators (Educational users and instructors 
of computer technology} 

CL) Systems/Programming specialists—mini-micro 
systems 

C) Other (Please specify) 


B. Which languages are you MOST interested 


in? 

C] BASIC OC OO PL/I 

CL) Fortran CJ LISP CO APL 

C} COBOL ~=—CL Prolog L] Logo 

L] Pascal CL) Ada LJ Smalltalk 
(1) Modula-2 (©) Forth Other 


C. What is the operating system? 


CL) CP/M (or derived) 

CL) UNIX (or derived) 

CL) MS-DOS (or derived) 
L] Other 


iP (= [oe (=) ae Y =) as (oe Oe] ge | 





D. Please indicate which of the following micro- 
computers you currently own and/or pian to 


E. What best describes the work you do with 
this microcomputer? 


buy in the next 12 months. “) Buwes hurctions 

Plan C1 Software/Hardware development 
reve a I Buy CO ScientificEngineering/R&D applications 
Commodore Oo O F, Are you the decision maker or very influential 
Digital Equipment/DEC O 0 in computer-related purchases at work? 
Heath/Zenith O O CO Yes O No 
Hewlett-Packard LJ O 
IBM O oO G. Is your company a dealer, distributor, or 
Macintosh Oo Og systems house for microcomputers? 
Radio Shack/Tandy TRS 80 lal O C2 Yes OO No 
Texas Instruments as O 
None OJ i) LJ Yes L] No 


To obtain information about products or services mentioned in this issue, circle the appropriate number listed below. 
Use bottom row to vote for best article in issue. One card per person. 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 
82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 
109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 


Articles: 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 


19 20 21 22 24 25 26 27 


This offer good until July 31, 1985 
Name Phone (__} 
Address 


City/State/Zip 


Reader Service Card 





D. Please indicate which of the following micro- 
computers you currently own and/or plan to 
buy in the next 12 months. 


E. What best describes the work you do with 
this microcomputer? 


C) Business functions 


Pian CL) Software/Hardware development 

Own to Buy LJ Scientific/Engineering/R&D applications 
Apple CO L] 
Commodore 0 oO F. Are you the decision maker or very influential 
Digital Equipment/DEC CJ O in computer-related purchases at work? 
Heath/Zenith CO O Cl Yes O No 
Hewlett-Packard O O 
IBM Oo O G. Is your company a dealer, distributor, or 
Macintosh Oo oO systems house for microcomputers? 
Radio Shack/Tandy TRS 80 O O 0 Yes O No 
Texas Instruments O O 
Other (Specify) O O H. Subscriber 
None O O OO Yes LJ No 


To obtain information about products or services mentioned in this issue, circle the appropriate number listed below. 
Use bottom row to vote for best article in issue. One card per person. 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 24 25 26 27 
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 
82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 

109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 


Articles: 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 
This offer good until July 31, 1985 
Phone (___} 


Name 


Address 








City/State/Zip 
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_On-Line Minv 


Presenting the software 
package that makes your 
computer more productive 
and cost-efficient. 


CompuServe'’s new Vidtex™ is compatible 
with many personal computers sold today 
(including Apple® Commodore® and 
Tandy/Radio Shack® brands). And it offers 
the following features*—and more-to let 
you communicate more economically 
with most time-sharing services (including 
CompuServe's Information Service). 


Auto-Logon. Lets you log on to a host 
simply and quickly by utilizing prompts 
and responses defined by you. Also allows 
quick transmission of predefined responses 
to host application programs after 

logging on. 


Function Keys. Let you consolidate ~ 
long commands into single Keystrokes. 
Definitions can be saved to and loaded 
from disk file, allowing multiple definitions 
for multiple applications. 


Error-Free Uploading and Down- 
loading. CompuServe “B’ Protocol con- 
tained in Vidtex lets you transfer from 
your computer to CompuServe and from 
CompuServe to your computer anywhere 
in the country. Also provides error-free 
downloading from CompuServe'’s exten- 
sive software libraries. 


Full Printer Support. Printer buffer 
automatically buffers characters until 
printer can process; automatically stops 
on-line transmission when full; and 
automatically resumes transmission 
when capacity is re-established. Also, lets 
you print contents of textual video screen 
or RAM buffer at any time. 


*Some versions of the Vidtex software do not implement all features listed. 


Vidtex is a trademark of CompuServe, Incorporated. Apple is a trademark of Apple Computer, Inc. Commodore is a trademark of 
Commodore Business Machines. Radio Shack is a trademark of Tandy Corp. 





Capture Buffer. Saves selected 
parts of a session. Contents can be 
written to a disk file; displayed both on and 
off line; loaded from disk; and transmitted 

to the host. 


On-line Graphics. Integral graphics 
protocol displays stock charts, weather 
maps and more. 


If you are already a CompuServe sub- 
scriber, you can order Vidtex on line by 
using the GO ORDER command. Other- 
wise, check with your nearest computer 
dealer; or to order direct, call or write: 


CompuServe 


P.O. Box 20212, 5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 


1-800-848-8199 


In Ohio, call 614-457-0802 
An H&R Block Company 


Circle no. 23 on reader service card. 





They said it couldn’t be done. 
Borland Didit. Turbo Pascal 3.0 





The industry standard 


With more than 250,000 users worldwide Turbo 
Pascal is the industry’s de facto standard. Turbo 
Pascal is praised by more engineers, hobbyists, 
students and.professional programmers than any 
other development environment in the history of 
microcomputing. And yet, Turbo Pascal is 
Simple and fun to use! 


COMPILATION SPEED 
EXECUTION SPEED 


CODE SIZE 


BUILT-IN INTERACTIVE EDITOR 


ONE STEP COMPILE 
(NO LINKING NECESSARY) 


COMPILER SIZE 


TURTLE GRAPHICS 


PRICE 


Portability 


Turbo Pascal is available today for most computers 
running PC DOS, MS DOS, CP/M 80 or CP/M 86. A 
XENIX version of Turbo Pascal will soon be announced, 
and before the end of the year, Turbo Pascal will be 
running on most 68000 based microcomputers. 


An Offer You Can’t Refuse 


Until June ist, 1985, you can get Turbo Pascal 3.0 for 
only $69.95. Turbo Pascal 3.0, equipped with either the 
BCD or 8087 options, is available for an additional 
$39.95 or Turbo Pascal 3.0 with both options for only 
$124.95. As a matter of fact, if you own a 16 Bit 
computer and are serious about programming, you 
might as well get both options right away and save 
almost $25. 


Update policy 


As always, our first commitment is to our customers. 
You built Borland and we will always honor your 
support. 











Turbo Pascal 3.0 easy, we will accept your original Turbo 
Pascal disk {in a bend-proof container) for a trade-in 
credit of $39.95 and your Turbo87 original disk for 
$59.95. This trade-in credit may only be applied toward 
e purchase of Turbo Pascal 3.0 and its additional BCD 
s/ options (trade-in offer is only valid directly 
through Borland and until June 1st, 1985). 


B 


YES 
mm 
BCD OPTION xg 


So, to make your upgrade to the exciting new version of 


Software's Newest Direction 
4113 Scotts Valley Drive 

Scotts Valley California 95066 
TELEX: 172373 


TURBO MS 
PASCAL 


TURBO 
3.0 2.0 


The best just got better: 
Introducing Turbo Pascal 3.0 


We just added a whole range of exciting new 
features to Turbo Pascal: 





e First, the world’s fastest Pascal compiler just got 
faster. Turbo Pascal 3.0 compiles twice as fast as 
Turbo Pascal 2.0! No kidding. 

e Then, we totally rewrote the file 1/0 system, and 
we also now support 1/0 redirection. 

e For the IBM PC versions, we've even added 
“turtle graphics” and full tree directory support. 

e For all 16 Bit versions, we now offer two addi- 
tional options: 8087 math coprocessor support 
for intensive calculations and Binary Coded 
Decimals (BCD) for business applications. 

e And much much more. 


The Critics’ Choice. 


Jeff Duntemann, PC Magazine: “Language 
deal of the century . . . Turbo Pascal: It 
introduces a new programming environment and 
runs like magic.” 


Dave Garland, Popular Computing: “Most 
Pascal compilers barely fit on a disk, but Turbo 
Pascal packs an editor, compiler, linker, and run- 
time library into just 29K bytes of random- 
access memory.” 

Jerry Pournelle, BYTE: “What | think the 
computer industry is headed for: well 
documented, standard, plenty of good features, 
and a reasonable price.” 


vi 


(*) Benchmark run on an IBM PC using MS Pascal version 3.2 and 
the DOS linker version 2.6. The 179 line program used is the “Gauss- 
Seidel” program out of Alan R. Miller’s book: Pasca/ programs for 
scientists and engineers (Sybex, page 128) with a 3 dimensional 


non-singular matrix and a relaxation coefficient of 1.0. ; 
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